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This  report  describes  a  missile  flight  simulator  research  model  developed  to 
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armor  weapons.  The  system  employs  a  terrain  board  with  enemy  armored  vehicles 
moving  in  a  variety  of  attack  scenarios.  When  the  gunner  fires  the  missile, 
hears  computer  generated  rocket  sounds  and  experiences  the  weight  loss,  recoil 
and  smoke  of  the  missile  launch.  When  the  smoke  clears,  he  views  the  missile 
in  the  sight  as  well  as  the  target.  The  gunner's  aiming  error  is  measured' - - 
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20.  using  a  micro-processor-controlled  diode  matrix  array.  The  matrix 
detector  senses  an  IR  emitting  diode  which  is  located  on  the  miniature 
target.  The  flight  equations  of  motion  for  the  missile  are  solved  by 
a  16  bit  microprocessor  every  0.02  seconds  in  each  axis  using  gunner 
aiming  error,  target  position,  gravity,  drag  and  side  thruster  accelera¬ 
tions  as  inputs.  A  second  coordinated  16  bit  processor  controls  a  dis¬ 
play  that  plots  both  vertical  and  horizontal  aiming  error  for  analysis 
of  the  gunner's  performance  by  an  instructor.  Experienced  DRAGON  gunners 
have  tested  the  system  and  attested  to  the  realism  and  training  potential 


SUMMARY 


The  Simulated  Tank  and  Anti -Armor  Gunnery  Systems  (STAGS)  is  an 
electro-optic  based,  multiprocessor  controlled,  training  device  that 
enables  training  of  DRAGON  gunners  at  a  reasonable  cost.  In  a  short 
period  of  time  a  gunner  can  be  subjected  to  a  variety  of  target  scenarios 
and  his  performance  can  be  analyzed  in  real-time  by  an  instructor.  When 
the  trainee  fires  the  training  device  he  hears  the  initial  explosion  of 
the  rocket  motor.  He  experiences  a  weight  loss  due  to  the  simulated 
rocket  exiting  the  tube  as  well  as  a  recoil  force.  Momentarily  his  view 
in  the  sight  is  obscured  by  simulated  smoke.  The  trainee  must  overcome 
such  launch  transients  and  smoothly  track  the  target  and  ignore  the  sim¬ 
ulated  missile  which  he  can  see  in  his  sight.  Thruster  rocket  firing 
sounds  are  included  as  well  as  the  final  hit  or  ground  impact  explosions. 

A  visual  indication  of  missile  impact  is  also  inserted  into  the  gunners 
sight. 

During  missile  flight  the  instructor  can  monitor  two  displays.  These 
displays  show: 

(1)  The  gunner's  sight  picture,  the  DRAGON  missile's  location,  and 

(2)  a  plot  of  gunner  aiming  error  versus  time  and  the  gunner  error 
tracking  limit  envelopes.  Thruster  firings  are  annotated  on 
the  display. 

This  system  uses  a  16  bit  microprocessor  to  solve  the  flight  equations 
every  0.02  seconds  in  each  axis  using  the  gunner's  aiming  error,  target 
position,  gravity,  drag  and  thruster  rocket  acceleration  as  inputs.  The 
solution  also  incorporates  the  dynamic  performance  of  the  tracker. 

A  prototype  model  was  constructed  by  the  Advanced  Simulations  Concepts 
Laboratory,  Naval  Training  Equipment  Center,  Orlando,  Florida  for  the  U.S. 
Army  Project  Manager  for  Training  Devices  (PM  TRADE)  and  the  U.S.  Marine 
Corps. 

This  model  has  been  successfully  evaluated  by  experienced  DRAGON 
gunner  teams  from  both  the  U.S.  Army  and  U.S.  Marine  Corps. 

Demonstrations  and  evaluations  are  planned  during  FY  82  using  this 
device.  Expansion  of  the  device  to  include  TOW  is  also  planned. 

The  PM  TRADE  Project  Manager  is  A.  Boudreaux.  The  authors  wish  to 
thank  him  for  the  helpful  assistance  he  gave  during  this  program. 
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SECTION  I 


INTRODUCTION 

Training  in  the  firing  of  modern  anti -armor  weapons  is  expensive.  Each  live 
round  costs  thousands  of  dollars. 

This  report  describes  a  system  that  uses  advanced  electro-optics  and  micro¬ 
processor  technology  to  enable  training  of  DRAGON  gunners  at  a  reasonable 
cost. 

The  DRAGON  is  a  command- to-1 ine-of-sight  guided  missile  system.  Fired  from 
a  recoilless  launcher,  the  missile  is  tracked  optically  and  guided  automat¬ 
ically  to  the  target  by  electrical  impulses  transmitted  via  a  wire  link. 

Firing  the  DRAGON  missile  is  accomplished  by  depressing  the  safety  and  squeez¬ 
ing  the  trigger.  No  other  action  is  required  of  the  gunner  except  to  keep  the 
sight  cross  hairs  on  the  target.  However,  to  score  a  hit  the  trainee  must 
overcome  many  perturbations  that  can  spoil  his  track. 

When  the  trainee  fires  the  training  device  he  hears  the  initial  explosion  of 
the  rocket  motor.  He  experiences  a  simulated  weight  loss  due  to  the  rocket 
exiting  the  tube  as  well  as  a  recoil  force.  Momentarily  he  is  blinded  in 
the  sight  by  simulated  smoke.  The  trainee  must  overcome  such  launch  transients. 
He  must  smoothly  track  the  target  and  ignore  the  simulated  missile  which  he 
can  see  in  his  sight.  Thruster  rocket  firing  sounds  are  included  as  well  as 
the  final  hit  or  ground  impact  explosions.  A  visual  indication  of  hit  is  also 
inserted  into  the  gunne  s  sight. 

During  missile  flight  the  instructor  can  monitor  two  displays.  These  displays 
show: 


(1)  The  gunner's  sight  picture  and  the  DRAGON'S  location. 

(2)  Plots  of  gunner  aiming  error  in  azimuth  and  elevation  versus  time  and 
the  gunner  error  tracking  limit  envelopes.  Thruster  firings  are  annotated  on 
the  display  and  the  number  of  thruster  firings,  actual  versus  ideal  are  recorded. 

(3)  The  instructor  can  recall  four  additional  plots  after  the  mission  is 
over:  gunner  aiming  error  and  missile  location  in  azimuth  versus  time;  gunner 
aiming  error  and  missile  location  in  elevation  versus  time. 

This  system  uses  a  16  bit  microprocessor  to  solve  the  flight  equations  every 
0.02  seconds  in  each  axis  using  the  gunner’s  aiming  error,  target  position, 
gravity,  drag  and  thruster  rocket  acceleration  as  inputs.  The  solution  also 
incorporates  the  dynamic  performance  of  the  DRAGON  tracker. 

Key  features  of  the  system  are  summarized  below. 

.  Target  hit  or  miss  determined  by  solving  DRAGON  flight  equations 
in  real  time 

.  Smoke  obscuration 


f 


1 


Recoil 


.  Weight  Loss 

.  Missile  superimposed  on  gunner's  view  of  scenario 

.  Sounds  -  thruster  firing,  launch,  hit  and  miss  explosions,  gyro  wind- 

.  Gunner  aiming  errors  versus  time  displayed  in  real  time 

.  Missile  position  versus  time  which  can  be  recalled  along  with  gunner 
aiming  errors  in  azimuth  and  elevation  for  analysis 

.  Expensive  tank  target  and  special  range  is  not  required  for  training 

.  Number  of  thruster  rocket  firing's  ideal  versus  actual  displayed 

.  Portable 

.  Record  and  play  back  capability 

.  Can  operate  with  and  without  an  instructor 

.  Can  be  used  to  simulate  night  firings  with  a  thermal  sight 

.  Gunner's  pull  down  force  on  DRAGON  launcher,  and  eye  piece  pressure 
is  indicated 

.  Variety  of  target  speeds  and  motions  simulated 

.  Trainer  flies  like  real  missile  because  of  computation  of  flight 
parameters 

Photographs  of  the  system  are  shown  in  Figure  1-1  through  1-4  and  illustrate 
the  student  station,  instructors  console,  and  the  terrain  board. 
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SECTION  II 


SYSTEM  DESCRIPTION 

The  system  block  diagram  i<  shown  in  Figure  II-l. 

Targets  in  this  system  are  1/120  mi  nature  models.  Model  targets  were 
chosen  because  they  have  better  resolution  than  either  computer  generated 
imagery  or  a  movie  display.  DRAGON  utilizes  a  6X  sighting  scope.  In  other 
weapons  even  higher  power  sighting  scopes  are  utilized,  thus  demanding  a  high 
resolution  visual  scenario. 

Models  are  moved  on  a  terrain  board  using  a  stepper  motor  under  the  con- 
t  -ol  of  a  single  chip  microprocessor.  The  engagement  scenario  is  stored  in 
tie  Personnel  Interface  Processor  (PIP)  and  is  selected  on  the  instructor's 
console  by  an  input  terminal.  The  stored  scenario  program  contains  the  tank 
target’s  velocities,  directions  and  range.  Scenario  data  are  provided  to  the 
0RAG0N  Flight  Simulator  Processor  (DFS).  At  the  center  of  mass  of  the  scaled 
target  is  an  Infrared  Emitting  Diode  ( I  RED ) -  Located  in  the  DRAGON  launch  tube 
is  a  photo  diode  array  camera  to  sense  the  IRED.  The  IRED  is  invisible  to  the 
human  eye.  This  100  x  100  matrix  camera  is  boresighted  to  the  gunner's  sight 
telescope  and  used  to  determine  the  gunner's  aiming  error  (GAE)  which  is  input 
to  the  DRAGON  Flight  Simulator  processor.  This  processor  solves  the  DRAGON 
flight  equations  and  provides  DRAGON  status  to  the  Personnel  Interface  Processor 
(PIP).  The  PIP  controls  the  graphics  units  which  inserts  the  missile,  smoke, 
explosion,  etc.,  into  the  gunner's  sight.  This  processor  also  controls  the 
Gunner  Aiming  Error  (GAE)  display  on  the  Instructor's  Console.  This  display 
plots  GAE  versus  time,  in  real  time.  The  DRAGON  Flight  Simulator  Processor 
produces  launch  and  target  explosions,  thruster  rocket  firings  and  gyro  noises. 
The  thruster  rocket  firings  are  delayed  to  allow  for  the  speed  of  sound  versus 
the  visual  phenomena  of  the  rocket  firing  which  is  optically  inserted  in  the 
DRAGON  qunner’s  sight.  Rocket  thruster  noises  are  attenuated  as  a  function  of 
distance. 

A  closed  circuit  TV  (CCTV)  is  located  on  the  DRAGON  tube  and  boresighted 
to  the  gunner's  6X  sight.  The  Gunner's  Sight  Picture  Display  is  located  on  the 
instructor's  console.  The  DRAGON  rocket  as  seen  by  the  trainee  is  also  mixed 
into  the  gunner's  sight  picture  visual  display. 

An  indicator  on  the  instructor's  console  indicates  the  ammount  of  pulldown 
pressure  on  the  launcher  tube.  Automatic  computer  controlled  boresight  is  also 
incorporated. 

Data  print-outs  for  both  a  hit  and  miss  training  session  are  shown  in 
Figures  1 1-2  and  1 1-3.  Note  that  the  rocket  thruster  firings  are  annotated  on 
the  left  hand  margin  with  dashes  indicating  the  firing  of  a  thruster  rocket 
pair.  Time  between  thruster  firings  are  a  function  of  the  rate  of  change  of 
gunner  aiming  error. 
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SECTION  III 


SYSTEM  DESIGN 


A.  Electro-Optics  Subsystem 

In  order  to  solve  the  DRAGON  flight  equations  several  input  parameters  are 
required.  These  parameters  are: 

(a)  trigger  pull 

(b)  target  position  and  range 

(c)  gunner  aiming  error 

The  STAGS  measures  the  gunner  aiming  error  with  respect  to  a  selected  aim  point 
on  the  miniature  t*nk  target,  using  the  electro-optics  subsystem. 

Gunner  aimi'-q  errors  are  determined  by  sensing  the  IRED  on  the  target  using 
a  100  x  100  mft. ix  so’id-state  camera.  The  IRED  is  invisible  to  the  human  eye. 

Solid-stat:  ..-raging  cameras  are  functionally  similar  to  videcon  type  TV 
cameras,  b-jt  with  the  added  advantages  of  greater  geometric  accuracy,  extended 
spectral  range,  higher  sensitivity  and  scan  rates,  digital  output,  small  size, 

low  voltage  and  power  requirements  and  the  ruggedness  and  reliability  of  solid- 

state  design 

The  sensor  is  a  solid-state  photodiode  array  matrix  having  10,000  pixels 
(100  x  100).  The  choice  of  lens  determines  the  field  viewed  by  the  matrix 
camera.  Using  a  125  mm  focal  length  lens  and  a  target  model  distance  of  22 
feet,  we  have  a  field  of  view  (F0V),  of  1.05  feet  or  48  mill iradians.  This  F0V 
will  accommodate  the  maximum  excursions  allowed  for  DRAGON,  i.e.,  32  mr  hori¬ 
zontal  and  22  mr  vertical. 

For  a  1.05  ft  F0V  one  pixel  represents  0.126  inches  on  the  terrain  board. 

Since  the  array  is  square  the  lengths  in  the  X  and  Y  axes  are  identical. 

The  magnification,  M,  of  the  camera  is  the  ratio  of  the  F0V  to  the  length  of 
the  array: 


Array  Length 

where  the  array  length  is  =  0.24  in.  (0.60  cm  total  width/height)  in  both 
X  and  Y. 


M  =  T-05  X-l?  =  52.5 

0.24 

The  static  resolution  is  the  array  element  spacing  imaged  into  the  object 
plane. 

Resolution  =  Magnification  x  element  spacing 
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Resolution  =  52.5  x  .0024  in.  =  0.126  inches 

This  is  equivalent  to  +  7.5  in.  resolution  on  a  real  world  tank  at  the  scaled 
ranqe  of  2,640  feet. 

If  a  longer  focal  length  lens  is  used  the  FOV  is  decreased  and  the  resolution 
is  improved. 

Accuracy  also  depends  on:  image  sharpness,  contrast,  vibration  or  movement 
of  the  object,  light  level  and  threshold  setting  of  the  camera. 

The  camera  used  is  blemish  free. 

An  IRED  is  located  on  the  scaled  model  target  and  the  center  of  the  IRED's 
energy  is  calculated  to  determine  hit  location. 

Because  the  IRED  produces  uniform  illumination,  the  threshold  setting  on 
the  camera  can  be  adjusted  to  a  fixed  level,  thus  eliminating  background  inter¬ 
ference. 

The  data  from  the  photodiode  array  is  electronically  scanned  to  produce  a 
sampled-and-held  video  output  signal.  The  amplitude  of  each  pixel  is  propor¬ 
tional  to  the  incident  light  intensity  integrated  over  the  interval  of  one 
frame  period.  The  camera  essentially  detects  light  to  dark  transitions  of 
the  digital  area.  The  scene  present  on  the  camera  is  a  light  circle  on  a  dark 
background.  Transition  data  from  the  camera,  stored  as  a  digital  line-by-line 
picture  of  the  array,  is  handled  by  an  interface  unit.  The  DRAGON  Flight  Sim¬ 
ulator  Processor  determines  the  GAE,  from  the  transition  data. 

The  electro-optic  subsystem  consists  of  the  following  equipments.  (See 
Figure  1 1 1- 1 ) 

Reticon  MC  520  Camera 

Reticon  RS  520  Controller 

Reticon  RSB-6020  Interface  Board 

Nikon  Zoom  Lens  (set  at  125mm) 

The  RSB-6020  directly  couples  Reticon  imaging  cameras  to  Intel  SBC/Multibus 
systems. 


( 
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FIGURE  III-l  ELECTRO-OPTIC  SUBSYSTEM  BLOCK  DIAGRAM 
B.  Multiprocessor  Subsystem 

The  multiprocessor  subsystem  includes  six  units  with  five  being  housed 
in  the  system  chassis.  The  principal  function  of  each  of  the  separate  units 
is : 

(a)  Personnel  Interface  Processing  (PIP) 

(b)  DRAGON  Flight  Simulation  (DFS) 

(c)  Sound  Generation  (SG) 

(d)  Target  Control  (TC) 

(e)  TV  Display  (TVD) 

(f)  Photodiode  Array  Processing  (PAP) 

System  I/O  is  processed  by  the  PIP,  which  is  covered  in  the  Computer  Graphics 
and  Video  Subsystem  Section. 

Target  control  is  detailed  in  the  section  Miniature  Target  Board. 

The  present  section  provides  a  description  of  the  DRAGON  Flight  Simulator 
and  the  Photodiode  Array  Processor. 
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1  •  DRAGON  Flight  Simulator 


The  McDonnell  Douglas  Astronautics  Company,  Titusville  Division,  under 
Contract  N61339-80-M-3518  provided  a  set  of  simplified  equations  and  a  computer 
program  that  approximate  the  DRAGON  missile  flight  as  directed  by  the  gunner. 

(See  Appendix  A) 

Si x-degree-of-freedom  equations  are  required  to  express  the  complete  missile 
dynamics.  Solutions  of  such  equations  were  examined  and  simplied  as  much  as 
possible  by  McDonnell  while  still  maintaining  a  statistically  accurate  repre¬ 
sentation  of  weapon  performance.  Some  of  the  simplifying  assumptions  were: 

(1)  Missile  dynamics  should  be  represented  by  a  point  mass  solution, 

(2)  Small  angle  approximations  to  be  used, 

(3)  The  effect  of  tracker  sampling  on  missile  trajectory  while  in  the 
linear  field  of  view  may  be  neglected. 

The  si x-degree-of-freedom  equations  thus  modified  were  exercised  and  compared  to 
results  obtained  from  the  complete  equations  of  motion.  Modification  to  the 
thrust  level  and  guidance  parameters  were  made  to  tailor  the  trajectory  to  the 
more  exact  results.  Sufficient  comparative  analysis  was  conducted  to  assure 
that  the  simplified  equations  gave  acceptable  results  over  a  range  of  crossing 
and  stationary  target  conditions  and  with  a  variety  of  gunner  aiming  errors. 

Figure  III-2  is  the  DRAGON  simulation  block  diagram.  The  variables  corres¬ 
pond  with  those  of  Figure  1 1 1-3  which  defines  the  important  horizontal  angles. 
These,  and  a  similar  set  of  vertical  angles,  were  used  in  the  McDonnel  "BASIC" 
program  which  iterates  the  differential  equations  of  motion  using  a  "Delta  Time" 
of  20  milliseconds.  Thus  a  10  second  missile  flight  requires  the  generation  of 
500  solutions  of  the  equations  of  motion. 

The  BASIC  program  was  rewritten  for  an  Intel  Microprocessor  Development 
(MDS)  System  (see  Appendix  A).  The  resulting  program,  while  able  to  reproduce 
the  McDonnell  results,  required  several  minutes  to  complete  the  500  solutions 
for  a  simulated  10  second  missile  flight.  It  was,  therefore,  unsuitable  for 
real  time  training. 

An  investigation  of  other  floating-point-math  techniques  usable  with  Intel 
SBC-86/12,  8086,  computers  showed  that  real-time  solutions  of  the  missile 
flight  could  not  be  accomplished  without  using  an  8087  coprocessor.  The  unavail¬ 
ability  of  the  8087  at  that  time  made  it  ncessary  to  abandon  the  convenience  of 
FP-math  and  recast  the  equations  using  integer  arithmetic.  This  required  close 
attention  to  the  choice  of  suitable  units  for  the  variables  because  of  the  limited 
range  of  integer  numbers:  (-32,767,  +32,767).  Down-range  distances,  for  example, 
are  expressed  in  2-inch  units;  1000  meters  (39,370  inches)  being  considered  to  be 
19,685  "Down-range"  units.  Cross-range  units  are  0.05  inches  for  distances 
and  0.1  milliradians  for  angles.  Unit  selection  for  all  variables  is  a  compro¬ 
mise  between  the  conflicting  requirements  of  the  desire  to  display  variables  over 
a  wide  range  and  the  need  to  reduce  quantization  distortion  while  not  exceeding 
the  allowable  integer  range.  Many  comparisons  between  the  integer  and  BASIC 
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FIGURE  1 1 1 - 2  SIMULATION  BLOCK  DIAGRAM 


HORIZONTAL  PLANF  GEOMETRY 


program  results  have  verified  that  good  approximations  to  the  DRAGON  Flight 
characteristics  are  provided  using  integer  arithmetic.  Comments  by  experienced 
DRAGON  gunners  also  support  the  validity  of  the  approximations. 

The  DRAGON  Flight  Simulation  Program  includes  five  modules: 

(1)  Main-DRAGON-Module:  A  ''Driver"  module  which  calls  other  modules. 

(2)  DRAGON-Util ity:  Includes  a  number  of  start-up  and  other  general  pro¬ 
cedures. 

(3)  DRAGON  Flight  Module:  Includes  the  integer  math  missile  dynamics, 
provides  missile  location  information  to  the  PIP,  stores  location  data  for 
possible  reprise,  and  does  the  initialization  of  flight  variables. 

(4)  DRAGON  IR:  Analyses  the  IR-spot  data  array  provided  by  the  following 
module. 

(5)  DRAGON  XF:  Transfers  line-by-line  data  provided  by  the  photo-detector 
line  array  processor  into  a  complete  picture  array. 

The  first  three  modules  are  written  in  PLM  86;  an  Intel  high  level  pro¬ 
gramming  language.  The  last  two  are  in  8086  assembly  language.  Total  program 
code  require  slightly  over  4K  of  ROM  memory.  Variable  memory  requires  about 
IK  of  RAM.  The  above  programs  are  in  Appendix  B. 

As  noted  previously,  the  program  is  located  on  an  Intel  SBC  36/12  board. 

This  board,  along  with  four  others  are  housed  in  an  Intel  SBC  86/12  system  chassis 
which  provides  eight  card  slots,  power  supply  and  ventilation.  Cards  within  the 
chassis  can  communicate  via  the  multibus  motherboard.  An  SBC  86/12  provides 
dual -port  RAM  which  can  be  accessed  by  both  the  on-and-off  board  processors. 
Missile  position  data  resulting  from  the  solution  of  the  missile  equations  of 
motion  are  transferred  to  the  PIP  via  the  multibus  for  further  processing  and 
output.  Data  status  bits  are  also  read  and  written  across  the  multibus  as 
required. 

Target  motion  is  provided  by  the  TC  unit  as  described  in  the  section  on 
Miniature  Model  board.  It  is  programmed  via  a  stepper  rctor  con* v oiler  into 
which  the  desired  target  maneuver  is  input  from  a  suicatre  menu  located  in 
program  memory  of  the  PIP.  Target  information  neeot-j  by  the  DFS  is  trans¬ 
ferred  from  the  TC  via  the  multibus. 


The  DFS  also  provides  control  signals  to  the  sound  generator  for  side- 
thruster  pops,  launch  and  impact  explosions.  It  also  provides  signals  for 
weight  loss  in  response  to  trigger  pull. 


Photodiode  Array  Processor 


Line  scan  data  from  the  100  x  100  photodiode  array  are  initially  stored 
in  a  set  of  ping-pong  memories  on  a  Reticon  RSB  6020  board  housed  within  the 
system  chassis  and  attached  to  the  multibus.  Data  are  alternately  read  into 
ping  or  pong  memory  under  control  of  a  clock  located  within  the  Reticon  RS  520. 
Data  within  the  memory  units  give  the  location  of  light  level  transitions  and 
indicates  light-dark  or  dark-light  transitions.  The  stored  data  also  indicates 
when  the  last  scan  line  is  read. 
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After  initialization,  a  last-line  flag  is  output  across  the  multibus  to 
the  DFS  whicn  causes  the  DRAGON  XF  program  to  begin  the  transfer  of  data  from 
each  line  of  the  next  100  x  100  photodiode  array  frame  to  the  SBC  86/12.  The 
data  read-out  is  then  halted  by  the  next  occurrence  of  the  last-line  flag.  The 
next  100  x  100  frame  data  are  ignored  during  the  analysis  of  the  transferred 
frame  data.  New  frame  data  analysis  results  are  provided  every  other  frame. 

The  frame  rate  of  the  Reticon  camera  is  100  frames  per  second  so  new  IR- 
spot  position  data  are  provided  50  times  a  second  or  with  a  20  millisecond 
period.  Occurrence  of  the  last-line  flag  acts  as  the  master  system  clock  with 
all  data  processing  starting  with  its  assertion. 

Figure  1 1 1-4  illustrates  the  various  devices  controlled  by  the  multi¬ 
processor  subsystem. 

An  automatic  zeroing  method  has  been  incorporated  to  ease  day  to  day  bore¬ 
sighting  of  the  gunner  sight  to  the  miniature  targets.  Zeroing  is  accomplished 
by  supporting  the  DRAGON  launcher  on  its  resting  stand  and  aiming  the  scope 
crosshairs  at  the  desired  aim  point  (Recoil  and  weight  loss  off).  A  Control  B 
(CTRL  B)  is  input  from  the  console  and  the  DRAGON  trigger  is  squeezed.  The 
computer  will  "read"  the  first  frame  of  data  from  the  Reticon  100  x  100  matrix 
camera  and  use  this  aim  point  for  its  reference  boresight. 

Subsequent  firing  will  use  the  new  boresight  until  the  zeroing  procedure 
is  repeated  or  the  computer  is  turned  off. 

C .  Computer  Graphics  and  Video  Systems 

The  DRAGON  computer  graphic  visual  presentation  is  prepared  by  the  Personnel 
Interface  Processor.  In  addition  to  this  processor  a  computer  graphics  board,  a 
phase-locked-loop  sync  board,  and  an  EIA  composite  sync  generator  are  used.  Figure 
1 1 1-5  shows  the  complete  graphics  and  the  video  subsystem. 

Computer  generated  graphics  nrovide  two  major  functions: 

(1)  Real-time  video  graphics  are  generated  for  the  gunner  sight.  These 
graphics  include  a  simulated  missile  which  include  thruster  firings,  smoke 
obscuration  during  initial  launch  and  a  final  explosion. 

(2)  Real-time  graphics  are  generated  for  the  instructor  which  indicate  both 
vertical  and  horizontal  gunner  aiming  errors.  Also,  for  follow  up  analysis, 
graphics  may  be  presented  for  gunner  aiming  error  versus  time  and  missile  position 
versus  time. 

Gunner's  sight  real-time  computer  graphics  are  generated  on  a  Matrox 
256  x  256  x  4  graphics  board.  Sixteen  levels  of  gray  scale  provide  for  a  full 
range  of  visual  intensity  which  allows  for  smoke  generation  which  varies  from 
fully  transparent  to  completely  opaque  in  sixteen  levels.  The  Matrox  RGB-256 
is  a  graphics  imaging  system  in  which  a  complete  gray  scale  capability  has  been 
integrated  onto  a  single  printed  circuit  board.  The  card  includes  built-in 
NTSC  (American)  and  PAL  (European)  gray  scale  encoder  which  can  provide  up  to 
16  shades  of  gray.  The  encoders  permit  the  RGB-256  to  directly  drive  standard 
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FIGURE  1 1 1-4  MULTIPROCESSOR  SUBSYSTEM 


low  cost  black  and  white  TV  monitors  on  a  single  75  ohm  cable.  It  features  the 
industry  standard  Intel  Multibus  which  makes  it  directly  plug  compatible  with 
all  Intel  single  board  computers. 

Real-time  video  graphics  are  generated  by  the  Personnel  Interface  Processor 
(PIP).  The  PIP  receives  gunner  aiming  error  information  from  the  DRAGON  Flight 
Simulator  (DPS)  as  well  as  missile  angle  from  the  line  of  sight  of  the  gunner 
to  the  missile  position  (angle  El  from  Figure  1 1 1-3) .  The  gunner  aiming  error 
is  used  to  position  the  final  explosion  (hit  or  miss)  in  the  DRAGON  sight.  The 
angle  El  is  used  to  position  the  missile  in  the  DRAGON  sight. 

Gun ner  G raphicjs : 

DRAGON  sight  graphic  missile  simulation  is  accomplished  by  first  deriving 
the  missile  position  from  the  Angle  El.  Second,  the  size  of  the  missile  is 
determined  by  the  elapsed  time  since  the  missile  launch.  Third,  the  brilliance 
of  the  missile  is  determined  by  the  elapsed  time  since  launch  and  if  a  thruster 
is  being  fired. 

The  size  of  the  missile  shrinks  from  10  pixels  down  to  1  pixel  from  launch 
to  maximum  range.  The  brilliance  decays  from  a  level  of  ten  (with  fifteen 
being  most  brilliant)  to  a  level  of  zero  at  minimum  range. 

An  octagon  was  selected  as  the  simulated  missile  shape  as  this  can  be 
quickly  calculated  for  real-time  graphics.  This  shape  appears  mostly  as  a 
circular  area  to  the  DRAGON  gunner. 

Smoke  is  simulated  in  the  DRAGON  sight  by  modulating  the  background  level, 
i.e.,  overall  gray  scale  setting  of  the  entire  graphic  video  insertion  in  the 
gunner  sight.  It  is  possible  to  tell  the  RGB-256  graphics  board  to  "erase"  to 
any  given  gray  scale  level  between  zero  and  fifteen,  with  zero  being  black 
(transparent)  in  the  gunner  siqht  and  fifteen  being  white  (opaque).  The  levels 
of  background  are  modulated  with  time  to  effect  a  smoke  simulation.  A  typical 
smoke  simulation  might  consist  of  starting  from  level  zero  rising  to  level  fifteen, 
dropping  to  level  eight,  back  up  to  fifteen,  down  to  four,  up  to  eight  and  down 
to  zero  during  a  period  of  one  to  two  seconds. 

The  final  explosion  of  tne  missile  and/or  tank  is  simulated  at  the  end  of 
the  DRAGON  flight  and  inserted,  via  the  RGB-256  graphics  board,  into  the  gunner 
sight.  The  explosion  is  a  series  of  geometric  star  shapes  indicating  either  a 
hit  or  miss.  The  PIP  uses  the  missile-to-aim-point  information  to  position  the 
explosion  wherever  the  missile  was  as  it  impacted  the  target  or  ground.  A  ground 
explosion  is  similar  to  a  target  explosion;  however,  it  differs  by  only  exploding 
in  an  upward  sense.  Thus  the  DRAGON  gunner  has  visual  feedback  through  his  sight 
indicating  hit  and  miss.  The  computer  generated  graphics  are  passed  directly  to 
the  gunner's  sight  through  a  Hitachi  VM151A,  one  and  a  quarter  inch,  closed 
circuit  television  (CCTV)  monitor.  The  optical  arrangement  is  shown  in  Figure 
1 1 1 -6 .  The  television  screen  appears  at  infinity  along  with  the  viewed  scene 
throuqh  the  6x  scope.  The  CCTV  is  mounted  inside  the  DRAGON  IR  tracker  housing 
and  electronics  for  the  CCTV  are  located  where  the  IR  tracker  electronics  are 
normally  located  at  the  bottom  of  the  tracking  head. 
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FIGURE  1 1 1-5  COMPUTER  GRAPHICS  AND  VIDEO  SUBSYSTEM 
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I n struct or  Consol e  Graphics 

The  instructor  console  graphics  subsystem  is  composed  of  two  units,  a 
television  representation  of  the  gunner's  sight  picture  and  a  graphical  plot  of 
gunner  aiming  error  versus  time  and/or  gunner  aiming  error  versus  missile 
position. 

The  television  representation  of  the  gunner’s  sight  is  accomplished  by 
mixing  the  gunner's  sight  TV  camera,  which  is  boresighted  to  the  6x  gunner  sight, 
with  the  video  graphics  presented  to  the  gunner's  sight.  The  composite  picture 
presents  to  the  instructor  an  image  of  the  gunner's  sight  which  includes  the 
target,  rocket,  smoke,  crosshairs  and  final  explosion. 

The  instructor's  television  representation  of  the  DRAGON  gunner's  sight 
picture  and  computer  graphic  missile,  smoke,  crosshairs  and  explosion  simulation 
is  combined  from  three  sources. 

The  model  board  target  and  terrain  is  looked  at  by  a  closed  circuit  tele¬ 
vision  (CCTV)  camera  which  is  mounted  outboard  on  the  DRAGON  launcher  tube.  This 
camera  is  zeroed  to  the  gunners  6x  scope  and  has  the  same  field  of  view  as  the 
scope.  The  camera  used  is  an  RCA  TC-2021/N  with  a  NUVICON  camera  tube  and  a 
135mm  t'3.5  still  camera  lens.  This  camera  was  chosen  for  its  small  size  and 
low  weight. 

Secondly,  a  video  mixer  combines  the  CCTV  image  with  the  Matrox  RGB-256 
computer  graphics.  The  comoination  of  CCTV  video  and  computer  graphics  is  then 
a  representative  visual  image  of  the  gunner  sight  picture  except  for  the  cross¬ 
hairs. 

Crosshairs  are  added,  to  complete  the  instructor  sight  picture  display,  by 
passing  the  video  presentation  through  an  electronic  crosshair  generator.  The 
crosshairs  are  adjustable  in  position  and  width. 

The  graphical  plot  of  the  gunner  aiming  error  (GAE)  versus  time  for  both 
horizontal  and  vertical  error  are  presented  in  real-time  during  the  missile 
flight.  The  graphs  indicate  the  actual  gunner  aiming  error  during  the  flight  as 
well  as  the  limits  for  a  95"  probability  of  hit  performance.  The  guidance  rocket 
thruster  firings  are  shown  when  they  are  fired  as  well  as  a  final  actual  count 
of  the  thrusters  fired  versus  the  ideal  number  of  thrusters  that  would  have  been 
fired  for  a  given  target  distance  with  perfect  aim.  At  the  end  of  a  flight, 
displayed  results  show  the  miss  distance,  in  feet,  where  the  missile  passed  the 
tarqet.  If  the  missile  struck  the  ground  before  passing  the  target,  a  message 
is  displayed  stating  "ground  impact"  as  well  as  the  remaining  distance  to  the 
target  when  grounded.  If  a  hit  is  scored  a  hit  message  is  displayed  to  mark 
the  event. 

After  a  missile  flight  a  reprise  of  the  flight  may  be  called.  A  horizontal 
reprise  replays  the  horizontal  GAE  and  the  horizontal  missile  position  versus 
time.  Likewise  the  vertical  reprise  replays  the  vertical  GAE  and  the  vertical 
missile  position  versus  time.  The  reprises  indicate  all  the  hit/miss  summaries 
of  the  first  real-time  plot. 
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Any  of  tne  computer  graphic  plots  may  be  made  into  a  hara-copy  printout. 

The  hard-copy  may  include  the  gunner's  name  or  other  pertinent  data  as  desired 
bv  the  instructor. 

The  instructor's  diagnostic  graphs,  keyboard  controls  and  hard  copy  print¬ 
outs  are  controlled  by  the  PIP  through  an  ADM-3  dumb  terminal  and  Digital 
Engineering  Petrographies  RG-512  graphic  board  and  Digital  Engineering  GP-100 
hard  copy  printer. 

The  operation  of  the  Retro-Graphics  equipped  ADM-3A  can  be  best  understood 
by  considering  the  RG-512  card  as  the  terminal  controller  and  the  ADM-3A  as  a 
"peripheral"  device.  The  RG-512  is  situated  in  series  between  the  ADM-3A  and 
the  serial  input  to  the  terminal.  This  means  that  all  incoming  ASCII  will  be 
received  by  the  RG-512  and  processed.  Input  to  the  terminal  will  only  reach 
the  ADM-3A  circuitry  if  it  is  transmitted  there  through  the  RG-512. 

The  RG-512  can  perform  several  functions  on  the  incoming  data.  The 
function  performed  depends  on  the  actual  ASCII  code  received  and  the  RG-512 
operating  mode.  Data  may  be  retransmitted  to  the  ADM-3A  as  mentioned  above  if 
the  data  were  alphanumeric  text.  This  is  the  usual  function  performed  by  the 
RG-512  when  in  the  ADM-3A  Alpha  Mode.  Certain  control  codes,  called  mode  trans¬ 
ition  codes,  can  set  the  RG-512  to  one  of  the  two  graphics  modes,  the  Vector 
Mode  or  the  Point  Mode.  An  additional  al phanumerics  mode,  the  4010  Alpha  Mode, 
is  included  and  can  also  be  entered  by  sending  the  terminal  the  appropriate 
mode  transition  code. 

After  entering  one  of  the  graphics  modes,  subsequent  input  it  interpreted 
as  x-y  coordinate  data  and  is  used  in  the  generation  of  a  point  or  vector  display. 
The  RG-512  does  not  retransmit  an  ASCII  code  to  the  ADM-3A  if  it  is  being  used 
as  an  x-y  coordinate. 

The  RG-512  employes  the  "bit  map"  method  of  storing  graphic  images.  This 
means  the  information  is  stored  in  a  digital  memory  as  a  rectangular  array  of 
bits.  Each  bit  in  this  memory  is  mapped  onto  the  CRT  screen  and  can  cause  a 
bright  point  to  be  displayed.  The  RG-512  displays  graphs  and  pictures  by  writing 
the  proper  bits  into  the  graphics  memory.  This  architecture  has  several  advantages 
over  the  traditional  storage  tube  approach  which  has  dominated  lower  cost  graphics 
terminal  designs.  Since  the  CRT  is  not  relied  upon  for  storage  of  the  image,  less 
expensive  CRTs  employing  more  conventional  long  life,  brighter  phosphors  can  be 
used.  Another  important  by-product  is  the  ability  to  selectively  erase  portions 
of  the  screen.  This  is  desirable  if  the  application  requires  the  use  of  dynamic 
displays  employing  motion  or  rotation  to  convey  information. 

All  circuitry  for  the  RG-512  is  packaged  on  a  single  12"  x  12.31"  printed 
circuit  card.  This  circuitry  consists  of  four  functional  elements:  Z-80A 
microprocessor  and  control,  128,000  bit  graphics  RAM,  raster  synchronization 
and  CRT  refresh,  and  power  supply. 

The  Z-80A  microprocessor  and  control  section  performs  command  decoding  and  is 
responsible  for  tne  writing  of  information  into  the  graphics  RAM.  The  Z-80A 
automatically  generates  vectors  from  transmitted  endpoints  and  also  performs 
scaling  and  character  generating  functions. 
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FIGURE  1 1 1-7  RG-512  FUNCTIONAL  BLOCK  DIAGRAM 


The  GP-IOO  Graphics-Printer  is  designed  to  interface  with  the  Retro-Graphics 
upgraded  Lear  Siegler  ADM-3A  (or  3A+)  computer  terminal. 

As  an  optional  feature  to  Retro-Graphics,  Graphx-Printer  reproduces  the 
terminal's  displayed  graphics  (or  al phanumerics )  on  hardcopy.  The  electro¬ 
sensitive  device  is  ideal  in  those  computer  graphics  applications  where  clear, 
economical  printing  is  needed. 

The  GP-100's  printing  system  is  electrosensitive.  This  advanced  technology 
allows  the  GP-100  to  quietly  print  the  displayed  graphics  within  16  seconds  and 
alphanumerics  at  170  lines  per  minute. 

With  the  electrosensitive  printing  system  all  graphics  and  alphanumerics  are 
drawn  by  a  durable  printhead  that  produces  dark,  clear  images  with  no  distortion 
In  other  words,  the  high  resolution  graphics  screen  image  is  reproduced,  dot-for 
dot,  on  hardcopy. 

Additionally,  paper  is  the  printer's  only  consumable.  Typically  an 
8  1/2"  x  11"  hardcopy  costs  less  than  3d.  Also,  the  paper  can  be  photocopied, 
and  it  will  not  fade  or  yellow  with  time. 
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The  electrosensitive  paper  is  made  from  a  base  of  black  coated  ordinary 
bond  paper  deposited  with  a  thin  aluminum  layer;  this  gives  the  unprinted  paper 
a  metallic  appearance.  During  printing,  an  electric  current  flows  through  styli 
that  touch  the  aluminum.  This  action  vaporizes  the  aluminum  at  the  point  of 
contact  and  exposes  the  contrasting  black  under-layer  to  form  the  graphics  or 
character  image. 

The  print  head  consists  of  12  styli  mounted  one  above  the  other  as  a  unit. 
This  head  is  attached  to  a  carriage  which  moves  the  styli  from  left  to  right 
and  maintains  them  in  contact  with  the  paper.  The  styli  are  pulsed  electric¬ 
ally  while  crossing  the  paper  so  that  the  required  characters  or  graphics  are 
printed.  During  printing,  each  stylus  burns  a  single  dot  in  response  to  a 
current  pulse.  At  the  end  of  the  line,  the  carriage  moves  the  head  away  from 
the  paper  and  returns  to  the  left  hand  margin  without  touching  the  paper. 

D.  Computer  Generated  Sound  System 

Simulation  of  sounds  produced  during  an  actual  DRAGON  missile  firing  is 


accomplished  by  interfacing  an  Intel  8748  microcomputer  to  a  General  Instrumerts 


AY-3-8910  Programmable  Sound  Generator  (PSG).  Data  necessary  for  the  PSG  to 
reproduce  sounds  is  acquired  from  the  permanent  memory  of  the  microcomputer. 
During  missile  flight  time  the  DFS  processor  simply  selects  the  sound  to  be 
made  and  communicates  its  choice  to  the  microcomputer.  This  approach  allows 
the  processor  to  handle  sound-making  decisions  with  minimum  time  take  from  its 
primary  functions. 

The 

choice  of  sounds  available  to  the  DFS  processor  are: 

(1) 

Gyro  wind-up 

(2) 

Missile  launch  explosions 

(3) 

Rocket  thruster  motor  firing 

(4) 

Target  missed  explosions 

(5) 

Target  hit  explosions 

The  General  Instruments  Programmable  Sound  Generator  (PSG)  is  a  40  pin,  8  bit 
device  with  microprocessor  compatibility.  The  device  features  three  independent 
analog  channels  each  with  access  to  its  own  tone  generator.  A  16  control  register 
array  communicates  to  the  microcomputer  through  an  eight  bit  bi-directional  port. 
Four  lines  are  alloted  for  bus  control  logic  (read  and  write).  Each  tone  gener¬ 
ator  looks  to  two  registers  within  the  array  for  a  12  bit  tone  period.  A  range 
of  frequencies  covering  the  full  eight  octaves  of  the  equal  tempered  chromatic 
scale  is  available. 

Pseudo-random  noise  may  be  mixed  to  any  or  all  channels  from  a  noise  generator 
with  basic  frequencies  of  4  KHz  to  125  KHz.  Two  modes  of  output  control  are 
available  for  each  channel.  The  fixed  level  amplitude  mode  selects  an  amplitude 
specified  in  the  array  by  the  microcomputer.  For  use  in  this  system  the  variable 
amplitude  mode  is  selected,  forcing  an  envelope  generator  to  control  the  shape 
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and  cycle  of  all  outputs.  Controlling  the  envelope  generator  is  a  16  bit  tone 
period  within  the  array  allowing  for  frequency  ranges  of  12  Hz  to  7&1/.5  Hz  and 
a  five  bit  shape/cycle  control  register.  Three  D/A  converters  supply  0  to  1 
volt  signals  to  the  output  channels. 

To  accurately  represent  the  flight  of  a  DRAGON  missile  as  it  moves  down- 
range  two  sound  phenomena  must  be  simulated: 

(1)  Time  delay  due  to  the  differences  in  the  speeds  of  light  and  sound  and, 

(2)  The  Logarithmic  decay  in  the  amplitude  of  sound  with  distance. 

Software  developed  for  the  microcomputer  closely  approximates  these  conditions 
within  a  1000  meter  range. 

As  shown  in  Figure  1 1 1-8,  the  outputs  of  the  PSGs  are  input  to  circuits  whose 
function  is  to  control  the  amplitude  of  the  sound.  These  circuits  consist  of 
operational  amplifiers  with  closed  loop  gains  under  direct  control  of  the  micro¬ 
computer.  An  Intel  8243  1/0  port  expander  is  used  to  select  feedback  networks 
of  the  operational  amplifiers.  Harris  analog  switches  HI518  and  HI304  under 
the  direction  of  the  8243  provide  a  variable  feedback  network  for  the  rocket 
thruster  sounds.  The  hit  and  miss  explosions  pass  through  a  separate  operational 
amplifier  circuit  utilizing  the  same  H 1 51 8  for  gain  control.  To  further  massage 
the  rocket  thruster  sounds  a  Pioneer  Reverberation  Amplifier  is  inserted  between 
the  output  of  the  operational  amplifier  and  a  Bozak  Pre-amp  and  Mixer.  Rocket 
thruster  sounds,  hit  and  miss  explosions,  and  the  launch  explosion  all  pass  through 
the  mixer  and  a  Bozak  Amplifier.  The  launch  explosion  is  generated  from  a  Frazier 
8-ohm  speaker  located  at  the  trainees  station.  Rocket  thruster  firings  are  heard 
from  a  speaker  near  the  modelboard  as  well  as  hit/miss  explosions.  The  gyro 
wind-up  noise  emanates  from  a  speaker  located  within  the  DRAGON  tube. 

The  DRAGON  Flight  Simulator  processor  initiates  a  timer  within  the  micro¬ 
computer  upon  request  of  a  launch  explosion.  Thereafter,  each  request  for  a 
sound  by  the  processor  causes  the  microcomputer  to  inspect  the  timer.  Assuming 
the  missile  travels  at  an  average  speed  of  280  feet  per  second  the  microcomputer 
is  able  to  approximate  the  distance  covered  and  determine  the  appropriate  sound 
amplitude.  The  microcomputer  selects  one  of  thirteen  levels  of  amplitude,  for 
rocket  thruster  sounds,  decreasing  logarithmically  from  a  gain  of  10  to  1  over  a 
time  span  of  11  seconds  corresponding  to  a  distance  of  1000  meters.  When  the 
missile  hits  its  target  a  series  of  three  rapid  explosions  are  generated,  each 
explosion  louder  than  the  previous.  For  a  missed  target  two  explosions  occur. 
Distance  in  terms  of  three  ranges  is  the  criteria  used  to  determine  the 
amplitudes  of  these  explosions.  These  ranges  are:  low  range  (less  than  333 
meters),  mid  range  (334  to  630  meters),  and  a  high  range  (greater  than  630  meters). 
The  gyro  wind-up  noise  and  the  launch  explosion  have  fixed  amplitudes. 

Time  delay  associated  with  distance  covered  by  the  missile  is  accomplished 
upon  inspection  of  the  timer  for  each  requested  sound  after  launch.  Before 
signals  are  passed  to  the  PSG  to  create  a  sound,  software  completes  a  sequence 
of  three  delays.  The  first  delay  represents  the  real-time  between  requests  from 
the  processor.  This  timeout  occurs  only  when  two  or  more  requests  are  made  before 
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the  first  request  is  serviced  by  passing  signals  to  the  PSG.  The  real-time 
between  any  two  requests  represents  distance  traveled  by  the  missile  and  is 
decoded  into  the  second  time  delay  as  determined  by  the  time  required  for 
sound  waves  to  travel  this  distance.  These  incremental  time  delays  are 
accumulated  in  the  microcomputers  data  memory.  The  third  time  delay  before 
a  sound  is  made  is  the  cumulative  total  of  all  the  second  time  delays  that 
have  already  been  decoded.  The  complete  algorithm  produces  a  series  of 
logarithmically  decaying,  time  delayed,  sound  waves  that  approximate  the 
actual  conditions  within  a  1 000  meter  range. 

E.  Miniature  Target  Board 

Because  most  anti-armor  devices  use  high  power  telescopes  to  view  the 
targets,  a  1/120  scaled  miniature  model  was  chosen.  The  target  model  has  an 
IREO  located  at  the  center  of  the  target  mass.  The  model  is  moved  using  a 
stepper  motor.  The  stepper  motor  controller  is  a  stand-alone  intelligent 
controller  that  is  independent  of  the  host  computer,  the  Personnel  Interface 
Processor,  except  for  loading  the  scenario.  The  stepper  motor  controller  uses 
a  high  level  language  for  control  of  the  stepper  motor  direction,  position, 
speed  and  acceleration.  The  tank  is  moved  over  a  40  inch  track.  It  takes 
5,240  half  steps  to  run  this  track.  Using  this  system  the  tanks  location  is 
known  to  0.0076  inches  on  the  model  board.  Scaled  to  the  real  world  one  half 
step  moves  the  tank  0.9  inches. 

The  controller  utilized  is  a  Cybernetic  Micro  Systems,  CY  512.  The  CY  512 
controller  is  a  standard  five  volt,  40  pin  LSI  device  configured  to  control  a 
4-phase  stepper  motor.  The  CY  512  interfaces  to  the  microcomputer  using  parallel 
TTL  input.  It  also  has  a  software  controllable  pin  which  is  used  to  initiate 
movement  of  the  tanks  turret. 

Hi-level  commands  to  control  the  device  are  stored  externally  in  the  PIP 
processor. 

Under  instructor  control  a  scenario  can  be  selected.  The  commands  are  then 
transferred  and  stored  internally  in  a  program  buffer  in  the  CY  512.  The  CY  512 
outputs  sequence  the  stepper  drive  circuits  that  consist  of  standard  Darlington 
drivers.  When  absolute  position  commands  are  executed,  the  CY  512  automatically 
determines  whether  it  is  necessary  to  move  CW  or  CCW  to  reach  the  specified 
target  position. 

Tank  position  is  measured  by  a  16-bit  counter  consisting  of  four  74191  TTL 
chips.  (See  Figure  III-10)  The  counter  is  reset  whenever  a  new  scenario  is 
loaded  into  the  CY  512.  The  counter  then  records  half-steps  of  the  stepper  motor. 

The  CY  512  interface  is  shown  in  Figure  III-ll. 

The  Darlington  drivers  are  shown  in  Figure  III-12. 
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A  Superior  Electric,  Slo-Syn,  Synchronous  Stepping  Motor  with  200  steps 
per  revolution  was  utilized. 

The  tank  turret  can  be  moved  by  using  a  software  controlled  pin  on  the 
CY-512.  The  CY-512  is  fed  into  the  circuit  shown  in  Figure  III-13.  On  software 
command  the  turret  moves  90°  toward  the  trainee  and  the  tank  gun  fires.  It  then 
moves  back  to  dead  ahead  after  a  short  2  or  3  second  time  delay. 

F.  Weight  Loss  and  Recoil  Mechanism 

Launch  effects  of  the  DRAGON  simulator  are  a  very  important  facet  of  the 
training  mission.  Two  of  the  launch  transients  which  must  be  overcome  by  the 
DRAGON  gunner  are  the  weight  loss  due  to  the  missile  leaving  the  launch  tube 
and  the  recoil  of  the  launcher  due  to  slight  uncompensated  differences  in  the 
pressures  at  launch.  Weapon  launch  effects  of  weight  loss  and  recoil  are 
simulated  via  mechanical  attachments  to  the  DRAGON  bipod. 

The  recoil  mechanism  is  a  sliding  platten  upon  which  the  DRAGON  bipod 
and  gunner's  feet  are  supported.  The  platten  is  covered  with  a  rubber  and 
steel  hybrid  material  that  allows  the  gunner  to  firmly  plant  the  bipod  legs  in 
position  and  stabilize  the  launcher  using  his  boots  to  press  agains  the  bipod 
supports.  At  launch  the  platten  is  given  an  impulse  from  a  pneumatic  solenoid 
thus  imparting  a  sensation  of  recoil  to  the  launcher. 

The  weight  loss  simulation  is  accomplished  by  a  weight  mass  that  is 
attached  to  the  bipod  via  a  pivot  and  pneumatic  cylinder.  When  the  DRAGON 
simulator  is  armed  for  launch,  the  pneumatic  cylinder  is  energized  which  in 
turn  raises  the  weight  and  places  an  additional  equivalent  weight  of  the 
DRAGON  missile  on  the  shoulder  of  the  DRAGON  gunner  through  mechanical  leverage. 
When  the  simulated  missile  is  launched,  the  pneumatic  cylinder  is  relaxed,  thus 
releasing  the  weight  and  effectively  removing  the  equivalent  ROCKET  weight  from 
the  gunner's  shoulder.  The  recoil  and  weight  loss  circuit  for  driving  the 
pneumatics  is  shown  in  Figure  III-14. 

G .  Pi u Vj  Down  Me asuremen t  and  Reticle  Insertion  for  Gunner  Sight  Pictu ' e  Display 

Three  LED  indicator  lights  are  present  on  the  instructor's  console  to  provide 
the  instructor  a  quantitative  indication  of  how  much  force  a  trainee  places  on 
the  DRAGON  tube  and  his  shoulder.  When  the  trainee  produces  a  force  on  his 
shoulder  equivalent  to  or  greater  than  a  predetermined  threshold,  the  yellow 
LED  comes  on.  If  pull  down  force  is  increased  beyond  a  second,  higher  threshold, 
a  green  LED  comes  on.  If  neither  threshold  is  reached,  a  red  LED  is  on.  The 
threshold  for  the  yellow  and  green  LEDs  are  variable  in  a  range  of  approximately 
50  to  250  pounds  force. 

A  circuit  utilizing  a  strain  gauge  bridge  was  developed  to  generate  a  signal 
which  is  strictly  the  result  of  a  force  at  the  trainee's  shoulder.  The  strain 
gauges  used  are  manufactured  by  Wm.  T.  Bean,  Inc.  They  are  general  purpose  foil 
gauqes  constructed  of  Constantan  with  a  polymide  backing.  Two  of  the  strain  gauges 
are  strategically  located  on  the  DRAGON  tube  so  as  to  unbalance  the  bridge  only 
if  the  trainee  has  his  shoulder  properly  positioned  and  is  applying  a  downward 
force  on  the  sight.  The  bridge,  when  unbalanced,  supplies  a  DC  level  to  a  two 
stage  DC  amplifier.  The  amplified  DC  level  is  the  input  to  two  comparators.  One 
comparator  activates  the  yellow  light  when  its  threshold  is  breached  while  the 
other  controls  the  green  light.  The  circuit  is  shown  in  Figure  1 1 1 - 1 5 . 
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In  order  to  provide  more  realism  to  the  instructor's  view  of  the  gunner's 
sight  picture,  an  electronic  reticle  was  inserted  into  the  instructor's  TV  moni¬ 
tor.  A  Cohu  sync  generator  located  inside  the  instructor's  console  provides  drive 
signals  to  synchronize  all  the  video  signals  throughout  the  system.  The  vertical 
and  horizontal  drive  signals  provide  inputs  to  the  reticle  circuit.  These  signals 
each  pass  through  a  low  pass  active  filter  with  a  cut-off  frequency  centered  at 
the  repetition  rate  of  the  drive  signal.  In  this  way  the  square  wave  drive  sig¬ 
nals  are  filtered  to  provide  sine  wave  outputs  of  frequency  identical  to  the  repe¬ 
tition  rate  of  the  inputs.  The  outputs  of  the  filters  input  to  voltage  comparators 
which  generate  TTL  square  waves  with  falling  edges  adjustable  about  the  midway 
times  between  two  drive  pulses.  These  falling  edges  trigger  one  shots  which  gen¬ 
erates  pulses  whose  duration  determines  the  width  of  the  retical  lines.  A  hori¬ 
zontal  reticle  is  produced  by  blanking  out  one  or  more  lines  of  video.  To  insure 
that  an  entire  line  is  blanked  out  and  not  a  portion  of  it,  a  flip-flop  further 
conditions  the  output  of  the  horizontal  line  one  shot.  The  clock  for  this  flip- 
flop  is  provided  by  the  vertical  drive  pulse  which  occurs  for  each  line  of  video. 

An  AND  gate  combines  the  output  of  the  flip-  flop  (horizontal  line)  and  the  output 
of  the  vertical  line  one  shot.  This  in  turn  controls  an  analog  switch.  The  switch 
allows  video  to  pass  through  to  the  TV,  or  when  activated  by  the  AND  gate,  sends  a 
negative  (black)  signal  to  the  TV.  The  position  of  the  horizontal  line  is  adjusted 
at  the  voltage  comparator.  The  level  of  comparison,  as  it  moves  in  relation  to 
the  sine  wave  input,  controls  the  position  of  the  falling  edge  at  the  output. 

The  position  of  the  vertical  line  is  controlled  by  a  phase  shifter  at  the  input 
of  the  voltage  comparator.  The  reticle  insertion  circuit  is  shown  in  Figure  III-16. 


SECTION  IV 


CONCLUSIONS 


This  system  has  undergone  preliminary  evaluation  by  both  Army  and  US 
Marine  Corps  experienced  DRAGON  gunners.  All  gunners  were  favorably  impressed 
with  its  realism  and  teaching  attributes. 

The  results  of  testing  this  device  will  be  included  in  the  final  report. 

Work  is  currently  under  way  to  include  a  TOW  training  capability  as  part 
of  the  STAGS  system. 

Development  has  also  begun  to  add  a  speech  synthesizer  chip.  This  chip 
has  a  274  word  vocabulary  and  will  be  used  to  coach  the  student  using  verbal 
output. 

Work  has  also  started  to  simulate  a  thermal  sight  capability.  This  work 
will  be  covered  in  the  final  report. 


APPENDIX  A 


DRAGON  FLIGHT  SIMULATOR  EQUATIONS 


The  following  data  was  provided  by  McDonnel  Douglas  Corporation  under  Contract 
N61 339-80-M-3518  for  use  in  simulating  the  DRAGON. 


OBJECTIVE 


Develop  a  set  of  simplified  equations  that  will  approximate  the  Dragon  missile 
in  flight  when  acted  upon  by  the  guidance  commands  as  influenced  by  the  gunner's 
aiming  errors. 

STUDY  APPROACH 

The  equations  currently  programmed  in  the  Dragon  six  degree  of  freedom  simulator 
were  examined  and  simplified  as  much  as  possible  while  still  maintaining  a 
statistical ly  accurate  representation  of  weapon  performance.  Some  of  the  simpli¬ 
fying  assumptions  are: 

(1)  Missile  dynamics  based  on  a  point  mass  solution 

(2)  Small  angle  approximation  are  used  in  the  calculation  of  missile 
dynamics 

(3)  Effect  of  tracker  sampling  on  missile  trajectory  while  in  the 
tracker  linear  field  of  view  is  negligible  and  is  not  simulated. 

The  six  degree  of  freedom  equations  thus  modified  were  exercised  and  compared 
to  results  from  the  six  degree  of  freedom  simulator.  Modification  to  the 
thrust  level  and  guidance  parameters  were  made  to  tailor  the  trajectory  to  the 
more  exact  six  degree  of  freedom  results.  Sufficient  comparative  analysis  was 
conducted  to  assure  that  the  simplified  equations  gave  acceptable  results  over 
a  range  of  crossing  and  stationary  target  conditions  and  with  a  variety  of 
gunner  aiming  errors. 

PROGRAM  DESCRIPTION 

At  the  beginning  of  each  simulated  flight,  initial  missile  velocity  and  position 
is  established  in  each  of  3  orthogonal  axes.  The  reference  axes  are  established 
by  the  initial  launch  line.  The  target  is  placed  on  the  launch  line  with  a 
constant  crossing  velocity  and  time  is  set  to  zero. 

Equations  of  motion  are  then  solved  every  0.02  seconds  in  each  axis  using  gravity, 
drag  and  side  thruster  accelerations  as  inputs  (see  Figure  A-l).  At  the  end  of 
each  time  increment,  the  new  missile  position  (X,  Y,  Z)  along  with  gunner  aiming 
error  (G1  and  G2)  and  target  position  (E3)  are  seen  as  an  angular  input  (El,  E2) 
into  the  tracker  (See  Figure  A-2).  The  tracker  calculates  a  side  thruster  firing 
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anqle  based  on  the  azimuth  error  (El)  and  a  firing  frequency  based  on  the 
elevation  error  (E2)  and  the  commanded  firing  angle  (Wl). 


When  the  tracker  commands  a  firing,  the  resulting  velocity  change  is  resolved 
into  each  axis.  This  in  turn  changes  missile  position  in  a  direction  to  reduce 
the  sensed  angular  displacements  between  tracker  and  missile,  thereby  closing 
the  guidance  loop. 

The  program  listing  in  BASIC  language  along  with  a  symbol  reference  list  and 
symbol  descriptions  are  included. 

DISCUSSION  AND  CONCLUSIONS 


The  equations  presented  herein  will  provide  a  good  approximation  of  the  flight 
characteristics  of  Dragon  when  subjected  to  the  gunner  aiming  errors  used  in 
this  analysis. 

To  interface  this  Dragon  flight  model  with  STAGS,  several  input  parameters 
from  the  STAGS  are  necessary.  The  input  parameters  are  trigger  pull;  target 
speed,  direction  and  range;  and  gunner  aiming  error.  Trigger  pull  will  be 
initiated  by  the  gunner  using  the  Dragon  training  mockup,  electrically  sensed 
and  transmitted  to  the  Dragon  flight  simulator.  This  signal  will  be  used  to 
begin  the  simulated  missile  launch  and  subsequent  flight.  The  target  speed, 
direction,  and  range  information  are  predetermined  values  for  a  given  scenario. 
Target  information  is  used  in  the  Dragon  flight  simulator  to  generate  system 
lag  characteristics,  i.e.,  the  average  distance  at  which  the  missile  flies 
behind  the  target  center.  The  STAGS  will  measure  gunner  aiming  error  with 
respect  to  a  selected  aim  point  on  the  tank  target.  This  aiming  error  data 
is  needed  in  the  Dragon  simulator  to  generate  guidance  error  commands. 

The  sequence  of  events  in  a  simulated  flight  begins  with  actuation  of  the 
tracker  trigger.  Figure  A-3  is  a  time  line  or  sequence  of  events  for  the 
launch  phase  based  on  nominal  conditions  at  70°F.  This  is  an  abbreviated 
time  line  which  includes  only  those  events  which  are  relevant  to  the  weapons 
trainer.  Between  trigger  pull  and  gas  generator  ignition  batteries  are  build¬ 
ing  up  voltage  and  safe  and  arm  functions  are  taking  place;  however,  gas  gen¬ 
erator  ignition  at  515  milliseconds  after  trigger  pull  is  important  as  an  indi¬ 
cator  of  when  to  apply  the  simulation  of  sound  pressure  level.  First  motion  of 
the  missile  in  the  launch  tube  begins  at  533  milliseconds  and  could  be  used 
to  initiate  a  simulation  of  weight  shift  ending  at  a  tube  exit  time  20 
milliseconds  later.  At  tube  exit,  launch  gas  (fire  and  smoke)  visible  to  the 
gunner  is  released.  From  this  point  the  missile  is  flying  ballistically  and 
the  missile  flare  is  building  up  to  its  operating  level.  This  flare  is  oper¬ 
ating  at  735  milliseconds  allowing  the  tracker  to  recognize  missile  position 
relative  to  its  line  of  sight  and  guidance  corrections  are  generated  in  the 
tracker.  At  1003  millisecond  the  warhead  is  armed  providing  an  indication 
of  what  type  of  simulation  of  ground  impact  should  be  considered.  Prior  to 
this  time  a  ground  impact  appears  as  a  dud  but  beyond  this  time  ground  impact 
would  cause  the  warhead  to  detonate  and  simulating  this  situation  would  be 
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FIGURE 


quite  different.  The  ballistic  phase  ends  with  the  first  rocket  motor  firing 
which  is  commanded  automatically  at  a  fixed  time  of  475  milliseconds  from 
missile  first  motion.  Subsequent  to  this  first  firing,  the  normal  closed 
loop  guidance  is  active  in  both  the  horizontal  and  vertical  channels.  The 
Dragon  system  was  designed  with  a  set  of  limits  established  for  the  aiming 
errors  and  the  trainer  may  want  to  incorporate  these  limits  in  its  scheme 
of  scoring  the  gunners  performance.  Figure  A-4  is  a  plot  of  these  limits 
in  both  channels  for  stationary  and  crossing  targets.  Another  factor  that  may 
be  considered  in  modeling  the  Dragon  flight  is  the  influence  of  the  trackers 
field  of  view;  i.e.,  missiles'  flare  image  relative  to  the  center  of  the 
trackers’  IR  detector  (coincident  with  gunners  line  of  sight).  As  this  flare 
image  approaches  the  field  of  view  boundaries  guidance  performance  is  degraded 
and  when  these  boundaries  are  exceeded  guidance  is  lost  and  the  system  goes 
into  a  squelch  mode.  In  this  mode  of  operation  the  tracker  commands  a  con¬ 
stant  firing  angle  and  firing  rate  based  on  the  last  guidance  information. 

A  more  accurate  model  of  tracker  performance  which  includes  the  field  of 
view  effect  may  be  added  at  a  later  time  but  does  require  significantly  more 
computing  than  this  initial  model. 
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VERTICAL  AIMING  LIMITS  |(3  SIGMA) 


HORIZONTAL  AIMING  LIMITS  (3  SIGMA) 


FLIGHT  TIME  (SECONDS) 
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FIGURE  A-4  GUNNER  ERROR  LIMITS 


APPENDIX  B 


MULTI-PROCESSOR  MAIN  PROGRAMS 


Pl/H-BA  CurtE  UER  ORhij'TNFLi'iHTMOC'ULE 


*38/18/10  FfftjE 


liIS-Ii  Pl.  M-hk  V2  1  COMPILATION  OF  MOD*  IE  OR mGONFL I GHTMODULE 
OBJECT  MODULE  FI  ml  Et1  IN  FI  DRhGFL  OE 1 

COMPILES  INVC*Ffl  BV  PL  MSS-  FI  DRAGFL  Oil  DEBUG  ROM  IXPEF  DATE  C 08/ 16/10 * 


1  DRhGCMFl  IGHTtMODULE  DO- 

'»♦♦*****»**+*».«*’ (.»*»♦«  »♦»♦»»♦*»♦♦*♦***»>*■**♦»****#******»**<-**»***»♦■»♦*■»»* 
OFF-BOARD  ABSOLUTE  ADDRESSES 

»**»**»».  ♦*.»*» »*+*♦***+***********»»*** +************************»**/ 

1  [fCLAFF  :nNG_BIRt'  7«N6_BIRC»>  INTEGER  AT  '0H01OH).  *BIPt*_DT_RDV, 

FIRE-BIRD-  61RD.HITS-  BIRD-HISSES-  H.RtP-RQ,  H.REP.GO,  V.RER.RG*- 
-_PEP_GO. GRND.B1PD- END.PEPRISE*  BVTE  AT  .0A014HT. 

■*.,»**,,,**»*»*»***♦♦»  END  ijpF -prwORD  ADDRESSES  ♦*#*♦♦»•***»■»♦*****♦****♦***/' 

l  DECLARE  VELOCITY  L1TEPALIV  14  .  '*  TARGET  VELOCITY 

IN  UNITS  ijF  0  1  MILL  I -ROMANS  PEP  SEC  ♦/ 

4  1  DECLARE  ’GOING- ACTION)  BYTE .  PQR'.E-  LITERALLY  XAH'- 

DEL -BIG. A  integef  big.h  integer 

c.  1  L'ECLHPE  <TCOt.«TF«.riWGi.C€L.HTAFG.  CEL  .AMISS.  t€L.v'  INTEGER.  TCNT  WORD  AT  C0F000H); 
-  1  target  v  PROCEDURE  INTEGER- 

7  2  DECLARE  CTCOUNT- TTCOUNT.  HTCOf-WT-  TENS.COUNT  •  INTEGER 

5  2  TCOUNT  =  INT  •  NOT  TCNT  -  -  TCOUNT0- 

?  ?  TENS  COUNT  =  TCOUNT  TO- 

10  2  HTCWNT  =  TCC'iJNT/100- 

11  2  TTCOUNT  =  TC0UNT/100A. 

L2  2  RETURN  *TTC0UNT*2t7  +  '-HT COUNT  -  TTCOUNT*10>»27  ♦ 

i TENS.COUNT  -  HTCiXtNT«lu>*  1  < - 

*  MODEL  MOVES  It  7. '8"  IN  5240  COUNTS  IT  IS  22  FEET  FROM  TRAINEE 
IT  THEREFORE  MOVES  -It  875,-22*12>»10000/'5240  =  6  2*7  CO  1  MRAD/COUNT)  */ 

II  2  END  TARGET. V- 

14  1  'IHE.BEi.AV  PROCEDURE  •HOH.LONG*  EXTERNAL- 

15  2  DECLARE  HOW. LONG  WORD. 

IS  2  ENI'  TIME-BELAY 

17  1  CtCLARE  RESULTS1 8*30 1  STRUCTIRECS.COUNT  INTEGER,  S.X  INTEGER, 

S.V  INTEGER  S.Z  INTEGER-  5.GAEY.I  INTEGER-  S.GAEZ.I  INTEGER- 
S.StTCNT  INTEGER  S.VHISS  INTEGER-  S.VOUT  INTEGER*  AT  <2000H<. 

I  INTEGER. 

I--  1  DECLARE  •  B.Y  B.Z-  DATA.RDV1  ■  BYTE  EXTERNAL; 

IS  1  DECLARE  SAVE. TCNT  INTEGER- 

H.REPViSE  PROCEDURE  PUBLIC- 
SAVE.TCNT  -  O- 
H_REF.pt:'  =  1- 
DO  WHIIE  NCtT  H ..REP  .GO- 
END. 

H.REP.GO  =  0- 
DO  I  -  0  TO  COUNT  -  j. 
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"i  *  '.nil'  i'.L"  AGONF;. I GHTHODUlE 


IF  RESULT-.  I-  :■  _SiTC NT  *>  SAVE -TL  NT  THEN 
THRUSTER  [..V 
FIRE  .EURO  -  1 

SAVE  T:  NT  -  FESI.HTS-  I  •  S.SIUNf. 

end  thruster 
f«i  tihe.delhv  a?'. 

t.  r  ^  UJW  -  UNSIGN  ■  100  -  RESULTS- 1)  S_QfiEV_I  *'■ 

E  .7  -  t_uU  -  UNSIGN  -  RESULTS- 1 1  S.V  +  100 1 1 

fATA.RDVl  -  1- 
PIRD.DT.RDV  =  1 
END- 

ENO.PEPRISE  =  1- 
ENT-  H.REPRISF 

40  ;  '/.-Rc'RISE  PROCEDURE  PU6L1C • 

41  i  Sii'/E.TCNT  -  0. 

4c  :  REP.RQ  -  1. 

4 -  i  [*A  Hr- ILF  NOT  Y.PEP.GO. 

44  EM- 

4  *'  VL-EEP.1’- '  -  0 

4--.  j  -X-  i  r  0  TO  COUNT  -  !■ 

1  IF  RESULTS  !  •  S.SiTCNT  >  SAVE.TCNT  THEN 

4J.  G  THRUS'ER  {-O' 

4.4  4  FIRE.BIRO  -  l, 

4  SfWE.TCNT  -  RESULTS' I  >  S.SiTCNT' 

’■ ;  4  END  THR'-STtF 

V  i  CALL  TIHE.DELA'-  -  -?'■ 

•  B-V  =  LOW  V  UNSIGN  '1UO  -  RESULTS! I >  S.GAE2.D). 

j4  >  8.4  =  o*>  -.UN SIGN  -  RESULTS'.  1 1  S.Z  +  100». 

C.S  DATR.PDY1  =  1- 

V  BIRD.DT.POY  ^  i. 

V  ENC'. 

'Tk  ENC- .REPRISE  -  1. 

S'-  .  ENC-  V. REPRISE. 

60  i  DECLARE  GROUND.DUD  LITERALLY  6 

GPOUND.EXP  LI  TERRILL V  5 

HIT. TARGET  LITERHLLV  I  . 

ROCKET .POP  LITERALLV  2  ■ 

Fi  1  SOUND  PROCEDURE  'WHAT..  INCA  EXTERNAL, 
r..  DECLARE  WHAT. I  INC'  BYTE. 

6"  ENC'  SOUND- 

/*  THIS  VERSION  OF  "DRAGON"  HAS  BEEN  TESTED  AGAINST  AN  NTEC  BASIC-00 
PROGRAM  TIC  BASIC-BO  PROGRAM.  IN  TURN,  HRS  CHECKED  HITH  THE  MCDONNELL  C-OUGLmS 
'VERSION  OF  TYPICAL  f'RAGON  MISSILE  FLIGHTS.  HITH  AND  WITHOUT  GUNNER  ERRORS 
NO  SIGNIFICANT  DIFFERENCES  BETWEEN  THE  VARIOUS  PROGRAMS  HAVE  BEEN  FOUND  ♦/ 

'*  THE  PROGRAM  USES  INTEGER  MATH  EXCLUSIVELY  AND  REQUIRES  2  12  MILLI-SEC  TO 
EXECUTE  EACH  PASS  THROUGH  THE  "FLIGHT"  UW  AS  DETERMINED  USING  ICES'?  A  SOFT- 
HARE  FLOATING-POINT-MATH  VERSION  WAS  TRIED  BUT  REQUIRED  ABOUT  2  SECONDS  PER 
PASS  THE  PPOGPAM  MUST  OPERATE  IN  REAL  TIME  TO  SIMULATE  THE  MISSLE  PERFORMANCE 
TO  DO  THIS  EA*‘H  PASS  MUST  REQUIPE  NO  MORE  THAN  20  M- SECONDS.  THEREFORE.  THE 
FLOATING-FAINT  VERSION  HAS  ABANDONED 

THE  PliPPOSE  AF  THE  PROGRAM  IS  TO  PRC'VICC  f'RAGON  CROSS-TRACK  POSITION  DATA 
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jMP  I LER  DRAGQNFL I GmTMODULE 


Tri  THE  SHniL  "TV"  VIEWER  IN  THE  TRAINEE  S  SIGHTING  C*EVICE  THE  TV  DRIVER 
U1LI  Ef  AN  H  SEPARATE  PC  BOARD  PLUGijED  INTO  TIC  MULTIBUS  THIS  HILL  REQUIRE 
MUM!  EPOCESSOP  OPERATION  AND  ALL  M  P  PROTOCftL  INCLUDING  "MUTUAL  EXCLUSION" 
HOST  BE  C6SERVED  THE  REQUIREMENT-  THEREFORE..  REMAINS  TO  ESTABLISH  A  BLOCK 
OF  MEMORY  THAT  CAN  BE  ACCESSED  BY  MULTIPLE  MASTERS  ACROSS  THE  MULTIBUS  AND 
A  SEMAPHORE  FLAG  MUST  BE  PROVIDED  FOP  DATA  PROTECTION.  */ 

DECLARE  >GAEV,  <3fCZ>  WORD  EXTERNAL-  ■-GAEV.I-GAEZ.il  INTEGER. 

DECLARE  ■  v.  V-  Z.  W,  VV-  UZ,  GAMMA,  PHI,  DELRVX.  DELtVY.  DELtVZ)  INTEGER; 

DECLAPE  1 HtFOV- VtFOV- FIRE '  6VTE- 

■  GAINtFAC,  NUTAT-  GAIN-  REFT  VOLT-  COUNT'  INTEGER, 

DECLARE  ■  HOUT-  INTIH  EPFtH-  INtHCOMP1  INTEGER- 

DECLARE  »VOUT-  INTtV  EPRtV.  INtVCOMP 1  INTEGER- 

DECLAPE  (HANG- VANG- HHISS-VMISS''  INTEGER- 

DECLAPE  <HTAPG.'-TAPG,:-TAPGi  INTEGER. 

DECLARE  FINISHED  SVTE  PUBLIC,  FIPSTtFIPE  BYTE, 

■SiTCNT.  WUFF,  rjjStFH 1  F#FPEQ  >  INTEGER, 

DECLARE  'H.MISS-HEX  V.MISS.HEX,  X.MISS.HEX)  INTEGER  PUBLIC 

■  IDEAL-S-tTCNT.  TAF'GET.SITCNT)  INTEGER  PUBLIC; 

DECLARE  ■m.OFP.H.OFF.H''  INTE'jEP, 

DECLAPE  SMOOTH' 4,  INTEGER-  II  BYTE- 

StTCNT  IS  THE  NUMBER  OF  SIDE  THRIJSTER  FIRINGS 

COStFHI-  UNIT  =  0  081 

FIFREO  -  UNIT  =  8  881  FIRt/SEC 

INTTFF  -  UNIT  =  8  881  FIRINGS 

FINISHED  IS  THE  FLAG  FOR  A  HIT  GROUND 

COUNT  -  UNIT  -  8  82  SECOND 

GAINIF4C  .  UNIT  =  8  81  X  MCCONNELL  BASIC  PROGRAM  "G"  UNIT 
NUTATF  -  UNIT  =  18'-4  RADIAN 
GAIN  UNIT  =  8  1  VOLT  /  RADIAN 
REFtVOLT  -  WIT  =  0  81  VOLT  */' 

-■'*  HROI.IT  .  UNIT  =  8  082  VOLT  —  BASIC  PROGRAM  PI  VALUE 

INTtH  -  UNIT  =  0  882  VXT  -  BASK  PROGRAM  01  VALUE 

GAEV.i  UNIT  -  122  PIXEL  US  25  MRAD'*  —  BASIC  PROG  61*  RAP  '• 
LENS  FOCAL  LENGTH  =  125  MM  —  SEE  [PAGON  VAR 
ERRIH  -  UNIT  ^  ft  082  VOLT  --  BASIC  PROGRAM  11  VALUE 
INtHCOMP  LNIT  =  0  882  VOLT  BASIC  PROGRAM  PI  VALUE 
VtCi.iT  -  UNIT  =  8  802  VOLT  -  BASIC  PROGPPM  P2  VALUE 

INI  tv  -  UNIT  =  8  882  VOLT  -  BASIC  PROGRAM  02  VALUE 

GAEZ.I  -  UNIT  -  1/2  PIXEL  <  IS  25  MRAD)  —  BASIC  PROG.  G2'RA0> 
EPRtv  UNIT  =  8  082  VOLT  -  BASIC  PROGRAM  12  VALUE 
IMtVCOMF  -  WIT  =  8  882  VOLT  —  BASIC  PROGRAM  P2  VALLE 
HMISS  *  vmISS  =  0  1  MRAC>  ~  G1  ♦  El  *  02  +  E2  ANGLE  FROM 
MISSILE  TO  TARGET  LINE 
XTAPG  UNIT  :  2  INCHES  -  NOT  IN  BASIC 


PL  I’l-  »•■  l  JH’lf*  i>_f&  •  f  £ 
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►PAPG  *  VTAPG-  UNIT  -  O  1  HPfiB  —  BASIC  El  *  t' 


*  «**  ■  UNIT  0  1  MLLIRAOIAN  —  BASIC  •'El'' 
ms  -  UNIT  a  i  MILL  3  FAD  I  AN  —  BASIC  "E2" 

B1G-H  ;  UNIT  0  1  MIl-PAD'50 
vONG.B'&f'.  UNIT  0  1  MILL IPfiOIflN  =  HANG 
,'HNG  PI  FT«-  UNIT  A  1  MILL  I  PAD  I  AN  -  VANG  */ 

:•■  IN  l  INCHES.  VX  IN  ;•  INCHES  cep  SECOND-  V  $  2  IN  UNITS  OF  0  05  INCHES' 

-v  *  v:  IN  ■•NITS  OF  0  20  INCHES  PEP  10  SECONDS.  GAMMA  *  PHI  APE  IN  DEGREES  */ 

OFF  .m  IS  THE  HORIZONTAL  DISTANCE  OFF  TARGET  LINE  UNITS  OF  0.  05  INCHES  */ 

•*  THIS  PPOGPAM  ASSUMES  THAT  EVERY  CVCLE  RE6UIPES  0  02  SECONDS.  IT  MUST 
BE  CORRECTED  WHEN  WE  DETERMINE  HOW  LONG  THE  THING  TAKES  */ 

•'*  **************  *+V  +  ++*:+**+**+***+i  **++******+++**+*+*+*+++*+ 

PROGRAN  VARIABLE  INITIALIZATION 

***«*»t***tf  ****»************»***♦»+*•♦***********»***#***  */■' 

Z5  '  INITIATEIVAR  PROCEDURE  PUBLIC- 

TCOUNT0  *  I NT>  NOT  TCNT)  •  /*  TCNT  COMES  INVERTED  FROM  CV512  BRD  */' 

HTARGl  =  O-  /*  HTAP'G  FROM  PREVIOUS  PASS 
X  =  0- 

OFF.H-  HMISS  =  0/ 

SMOOTH<0>-  5M90THC1  '•  SN00THC2  '•  SMOOTH'S'*  =  0- 
Z  =  -110 
VX  =  1559- 
yv  i  0. 

VZ  -  5050- 
GAMMA  =  2- 

FHI-HOUT-  INTIH.GAEV.I- VOUT-  INTiV-  GAEZ.I  HAN'S-  VANG-  5ITCNT-  INT$FF  =  A- 
HTAPG  =  TARGET. V. 

VTARG  —  0 

•TABU  =  1XS5-  -•*  THIS  WILL  CHANGE  WITH  FILM  CAT  A  NOW  =  1000  M  V 

mu  2  li'EAl  iU  NT  -  ::TAR'V720-  ASSUMES  FIXED  XTARG  ***♦»*»***,' 

91  2  FIRE- FINISHED- FIRSTJFIPE- BIRD .HITS- E 1RD.MISSE5- GRND.BIPD  =  0;  '*  NOTE-  TYPE  IS  ALL  BYTE  HERE  */ 

K  2  H.PEP.RO-  rt-REF-GO-  V.PEP.RO-  V.FEPJjO- END.PEPRISE  =  0; 

m-  2  DEL. AMISS  =  0- 

4.1  2  I  -  0- 

95  2  COUNT  =  A- 

%  c  ENC>  INITIATE$VAP- 

>****♦4*1  t*m **********  PPOGPAM  STARTS  **************»****************, 

■*.'  »  MIGHT  PROCEDURE  PUBLIC- 

««♦*  •  **««♦***+♦♦♦  *****  ♦♦♦  ♦  ♦♦*♦*'*♦’*♦ 4 **.♦*♦******♦*'♦*****♦♦*’* ♦♦♦♦*♦*♦♦♦♦* 

MISSLE  C'ATm  xANF'LE 

***4  *4  .***4********  *************  ***********■«******''**  +  ***********  t*****  */’ 

9t  H. MISS-HEX  =  1  SMOOTH  'O' + SMOOTH ( 1 • +5MOOTHC  2 1+5M0QTH C  3 ) V4  • 


PESULTS'I'  S_COUNT=COUNT; 
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f'l  M- 


"•if'IlEP  dragonfl  ;  ijr-  e 
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RESULTS*  I  ■  S.X-. 

t.Mj 

'ES'tTS'P  S_Y  -  H-HISS-HEX. 

;»1.' 

IF  RESULTS' I  '  5-V 

S  -95  THEN  RESULTS' ! ' 

S-Y 

=  -95- 

104  2 

IF  RESULTS' P  S-Y 

•*  150  THEN  RESULTS'  I ' 

S.Y 

=  150; 

100 

RESULTS'  I '  S.Z  -  ' 

‘X/100>*VMISSV50. 

/*  DITTO  */ 

187  2 

IF  RESULTS'  I  ■  S.Z 

C  -95  THEN  RESULTS'.  I  > 

S.Z 

r  -95. 

109  : 

IF  RESULTS'  I '  S.Z 

"•  150  THEN  RESULTS' P 

S-Z 

=  150; 

111  2 

RESULTS' I  '  S.GAtY. 

I  -GAEV .  I 

112  ;• 

RESULTS'  I '  S-GAEZ. 

I  =GAEZ_  I  ■ 

u:  z 

RESISTS'  I  -  S.StTCNT-SITCNT 

114 

IV'  li  i  0  TO 

115  ' 

ghwth'.  -  n '  - 

RHOOTH.'Z  -  ■  I  • 

!1>  ’ 

END 

1 1  . 

:  i’l 

TINY  TAt#  PCiSITION 

»»»t******»»******»  tt(tt**»**t**ii*t«**»****»*t*»m**w»»***»**t*«/ 


Ilf.  2  HTAPG  =  TARGET. x. 

119  2  DEL .HTAPG  -  HThPG  -  HThRGI 

!2h  >  HTPPGl  =  HThPG-  »  SAVE  TARGET  POSITION  TILL  NEXT  PASS  */ 

1.1  ;  count  •  count  ♦  1. 

/*  «***♦♦«•♦»♦<**•♦♦  (♦**»**■*♦'**»*♦’»*»*******«*»’♦*♦♦*****»**»****»****♦** 

WSSILE  OVNflHlCS 

**  <  ««**  ♦  M  1  *  ********’* 

1.2  2  ZANG.6IPD  *  VANG.  >  TRANSFER  BIRD  POSITIONS  TO  "B-BOARD  * 

122  2  YANG-BIRD  =  HANG- 

124  :•  8IRD-DMW  -  1 

125  2  i€ltVZ  -  -9 ’GAMMA  - 

12*-  2  IF  FIRE  =  1  THEN  DO 

12A  ’  DELFVZ  r  [{LtVZ  +  "15  -  PHI»PHI. 

129  CALL  SCN.N(»  ROCKET.  POP- 

13m  FIPE.6IRD  --  I 

II  >  ENT' 

lie  2  GAEY.l  -  SIGNED1  GAEV'- 

1".  2  GAEI.I  =  SIGNED' GAEZ'. 

124  TARGET .SJTCNT  =  SITCNT 

lir-  2  X -MISS-HEX  =  v-'TAPG- 

1-F  2  IF  lABS'X-HISS.HEX  •  <  25  THEN  '*  20  — >  3  4  1/3  FT  FROM  RANGE  OF  TARGET  */ 

tie  2  AT.TARGET  DO 

l;.k  •;  IF  IDEAL.S4TCNT  •>  TARGET.SKTCNT  then  IDEAL-S4TCNT  =  TAPGET.SRTCNT. 

14A  IF  V  •  2000H  THEN 

14!  •  .'.MISS-HEX  =  "X  T00>*VMISS>/G0O.  /*  VERT  MISS  DISTANCE.  FT  */ 

142  '  ELSE  '■'_MISS-HEX  =  'XX/10ee>«VMlSSVE0 

143  ?  IF  IAeS'H.MlSS.HE/'  •’  4«  AND  lABS'V.MISS.HEX'  C  3  THEN  /♦  IN  8X6  FT  RECTANGLE  */ 

144  2  GflOD.SHOT  DO- 

145  4  CAH  SOUND' HIT. TARGET'. 
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r't  H-k 


:  4t. 
14.' 
14* 
14? 
15P 

151 

152 

154 

155 
158 
158 

l*’ 


i*: 

185 

18b 

18? 

18* 

18? 

178 

[?! 


1 

r: 

1  '4 
1 

188 

1 

1':: 


ir? 

IF*. 

t 

I  -4 

1> 
i :  ' 

I'- 

l** 

i?; 


I  >W  ILEP  DRAGuNF L 1  GHTMORILE 


08/18/1? 


4  PIRC’-Hi  *:■  -  l- 

‘  6IPDJHSSE5  -  8 

4  FINISHED  =  1 

4  EhD  GQOD.SHOT- 

3  ELSE  BAD.SHOT  BIF'D-MISSE:-  =  1. 

:  END  AT.TARGET 

:  V'  VS  ♦  [l£L4‘4'  > 

•:  z  --  7  +  47  /  125. 

:  V?  ♦  DELtVZ  /  2. 

;  f-EUV.-  :  -2, 

;■  IE  FIFE  -  1  then  I€L*V>-  =  t€UW  ♦  82. 

»<;  -  «X  ♦  DELtV:-  /  2- 
2  DEl.X  =  VX/50 

2  >  s  v  *  PEL.X. 

:  w;  =  uw;  ♦  rfiiV-  /  2. 

;  GAMMA  c  vZ  1  V»2  •  ■ 

2  IF  FIRE  =  1  THEN  t€L$W  =  -•  .'215?8^HlHWvlS0>*PHI; 

2  ELSE  DEL4VV  =  0. 

2  W  =  W  ♦  f€L$W  /  2. 

2  C€L  0FF.H  =  VV/125  -  >  E*t L _» .10  ■*.  HMISS/25  >  -  <X/25e>*t€L.HTflP6i 
2  OFF.H  =  OFF_H  +  DEL.OFF.H. 

2  SMOOTH. 0.  •-  OFF.H/20. 

2  Y V  =  VY  +  DELJVY  /  2.. 

2  F[pe  =  *. 

<.*********»*****************•*******************«***************** 
DEFINING  ANGLES 

»*«**•«**»  *♦***+**♦»♦**♦*+****♦********♦****»*******************♦***»#****#♦/ 

*  WE  INTRODUCE  THE  TARGET  DATA  FOF'  TARGET  HCiVEMENT  FROM  !  C  */ 

2  IF  COUNT  ■  5  THEN  ■'*  T0  AVOID  «  "DIVIDE  BY  ZERO"  WHEN  CALCULATING  "HMISE  *  */ 
2  ANGLES  DO. 

HHISS  =  •  2*OFF  ,H  ».-  •  >  !>*•  •  • 

VMISS  *  .2*2'  V«:/12S>  -  YTflPG. 

HANG  =  HMISS  ■  5*6AEV.I/2. 

VANG  =  VMISS  -  5*GAEZ_i/2. 

END  ANGLES. 


.♦***♦*.. *» t*.4*t*.*.f ****...»«*(»****»***»*«  +  * ♦**«,» »  +  T  +  *.*<t******< ,  ****** 

THIS  IS  THE  TRADER  GAIN  SECTION 

♦  *****  «***  «  ft*********************  I'************************-*  ****]*******:*. ******  •’ 

TAINtFAf  =  '144-  -  :  .  COUNT  VIA 
IF  GAJNtFAC  >  14A  THEN  GAINSFAC  =  140- 

IF  GAINJFAC  <  100  THEN  GAINFFAC  =  100 

IF  COUNT  '  ?4  THEN  NUTAT  =  240.  /*  WITH  125MM  LENS.  FOV  IS  24  HEAD  *•- 

ELSE  NUTAT  =  ■  '2S5?5/GAIN*FFh;  )*100VCOI.WT; 

IF  lit INT  ■'  4?  1HEN  REFIVQLT  =  875 
ELSE  REFIV.XT  =  IS  *  COUNT. 

IF  REFFVOL1  >  81*.  THEN  REFFVOLT  -  S?5. 

IF  COUNT  <;  48  THEN  GAIN  =  41  *  COUNT, 


PAGE 
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Pi  M-hi-'  COMPiLF 


UPPiyWLI'  HTMUWLE 


mntm  page 


!  -*-*  EfSE  ohIN  -  IIP*  '  *  S'PSO  7  NUT  AT  >. 


♦  ♦  ♦  ♦♦♦'♦  4  4*4  4  ♦  4  *  ♦  4  4  *  Vi  *  4  4  **4  *4  ********  4  *♦*  **  **♦  I:#*#.*******#*#*#*##***#****** 

v HEO  FOR  NUTATION  RADIUS  EXCEEDED 

4*  *>..M4*t*****+t***«n+**i»*****1>**:*#*#%*M«’Mi*»‘*>Hl******* f**^^***l(c#*J*:*3r***t/ 


1  <c. 

HiFuW. u$FOV  =  0. 

1**  2 

IF  COUNT  :■  20  THEN 

isr  7. 

CHFCUFfw  DO- 

l?t 

IF  IrtBS'HHNG' 

■  NUT0T  THEN  HiFOV  =  1- 

200 

IF  I06S1 V0N6' 

■'  NUTfiT  then  "TFOV  =  1. 

202 

ENC'  CHECf  fFOV 

* 

THIS 

IS  THE  HOPIZONT0L  RATE  POSITION  PORTION 

♦  4.4.4.*i*,4444  4**4*4****.44*t*44(4r*44,4rf>t4(4.4t4't#*****'f-*)f^*****4**4:44:44+44-4r*t4>4c*)4 

.07  2 

IF  NOT  HTFOV  THFN 

704 

!  01  FIH  t'O. 

70S  7 

[F  r  Oi  in  I  22 

THEN  INWCOMP  -  ■,FjHIN',10f*HhN'S> ’20.  *  C0UNT=22  <==>  TIME' 

<•  FIRST  FIRE  OCCURS  0  474  S  *7 

2*'~  7 

ELSE  INtHCONP  -  "jflIN/200 '*H0NG- 

20S  3 

EMU  CRLCtH 

20A 

ELSE  INMOMF  ~  ■ 

PFF I  >.’OLT  S )  *HANG7  IhBS*  HANG  >  • 

Fl0  7 

EPPIH  -  INJHCOdF  - 

hout. 

lit  2  HOUT  *  iNTI«  10  ♦  2*INM0NR. 

-’12  INTfM  .  INTIH  4  ERR*H. 

-,-*4  ♦*%*  *  4  44  ♦  4 1  i  *•*+#***  4  4.  4 *¥%*4-4^*4‘*4  4‘#*4c*4**%*4<4p*4***4'4^*4‘4‘**  +++*+**x ********** 

HOPIZWTa  WIPE 

a.*  7  PHI  -  WlT.  Hii. 

214  IF  Phi  •'  -?S  IhFn  PHI  -  -7S. 

IF  PHi  ”3  THEM  PHI  =  7r>. 

THIS  IS  THE  VERTICAL  RATE  POSITION  PORTION 

4***++  +  *4>f  4*44  4  4  ♦  4  ***♦♦♦*  f****t1t^*#*Ht**#^**JWi*+*it*++********3f4>4t*#4c^n|r***+/ 

IF  NOT  v$Fi>'  THEN 

cw.r*v  ro 

IF  FOUNT  '  >>  THEN  INIVO'iMF  -  ■  «TjfiIN/10'*V»fti/2e. 

El'-T  IHil'OV'IP  =  'TjnlN  200‘*VONG. 

EMC1  CALCIV. 

ELSE  I H4VC0MP  =  '  REEFVOLT/'S)*VfiNfj  ImE  S  ■  VANG  ■• 

EPPIV  -  INfVCOMP  -  vrjn. 

22h  7  VOOT  -  1NTPV/S  ♦  A*iN*VC0MP. 

227  :  INT$V  =  INTfV  4  EPRtV. 

220  1  EPPtV  -  IN$‘7C0NP  -  VOUT.  /*  HEPE  WE  tape  INTEGRATION  4  VI  OF  "COUNT"  TWICE  */ 

22S*  2  wriijT  ;  INT$V/5  *  ?*iNt''COMP. 

2'f>  I  INTIV  =  INT$V  4  EPP*V. 

*********** H******  ‘ ******************************************************* 

FIFE  PULSE  GENERATION 
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pi  M"">  '  OMf  liFC  DFniji <NF(_ I •jHTHOOULE 


ms/ie  k 


f *******»*♦***♦******♦********+*♦******♦**«***»***********»»»/ 


232 


;:a 


240 

2-»l  2 

242  :> 

24:  : 

244  4 

245  4 
242.  S 
242  S 
24ft  5 
24*  T 
■eiM  j 

2  51  4 


254  2 

:c.s  •- 

252  ' 


FIFFtO  *  140H0  -  ?*V0UT  ■  '5. 
U'SIFH'  -  ft**5  -  •  PH  I  *PH  I  *,-?. 


IF  FOUNT  ;■  ?4  THEN 
FIPSTISHOT  DO- 
FIFE  -  I 
SIt*nt  -  i, 

INTIFF  0. 

FIRSTJF1PE  --  I- 
EN(>  FIPSTISHOT. 

IF  FIPSTJFIFF  THEN 
CfiNFIPE  [-0. 

IF  SJuNT  <  ?0  THEN 
JOHEILEFT  DO- 

IF  INTIFF  >  COSIF'H]  THEN 

f i pe jone  do. 

INTIFF  =  0 
FIFE  =  1. 

FITfNT  =  sJTFN .  .| 

ENC*  F IPEIONE 

INTIFF  -  INTIFF  ♦  FlFPEO  '50 
ENf*  SOMEILEFT 
END  ChNFIPE. 

IF  Z  -'20  THEN 
GROUNDED  DO, 
f  WISHED.  <*HD_6HH>  -  *. 

IF  COUNT  >  2:  THEN  TOLL  SX*C>  ■  OPXWO.EXP '*  ■ 
ELSE  C  XL  SOUND  •  OPXiND.DUD  * 

FN{.  ^POUNDED. 

ENC*  FLIGHT 

END  [*Ph.'jiTN|FL  IFiHTIMfiXli  E  • 


MCKXE  INFORMATION 


•2'X€  FiPEft  SIZE  =  0HDZH  2'"LD 

CONSTANT  OPEN  SIZE  -  O00UH  X* 

'WIA6LF  HP£h  SIZE  =  0002H  1T0D 

Nff'TNUN  STACJ  SIZE  -  000SH  8D 

4:0  LINES  PE HO 
0  FP0GP0N  EPp/jP  •  S  . 


ENT*  OF  FL.-M-kF.  COMPILHTION 


MCS-86  MACRO  ASSEMBLER  IP-CENTER 


m2 -'24/W  PAGE 


ISIS- 1 1  MCS-86  MACRO  ASSEMBLER  V2  1  ASSEMBLY  OF  HOME  IP.CENTEP 
OBJECT  NODULE  PLACED  IN  Fi  [■Phi;,!-1  OBJ 

ASSEMBLE  INVOKED  PV  08H86  Fi  OPAG1P  001  DEBUG  DOTE  •  02/24/09 ' 


IOC  OP!  LINE  SOLACE 

1  NONE  IP-CENTER 

S  THIS  IS  0  [■FIVER  PROGRAM  FOP  THE  PET  I  CON  6020  USING  THE  86/12  BOARD 

4  ■  IT  IS  BEING  UPDATED  9’2:</81 

5 

6  DGPOUP  GPOIJP  WO.  STACK-  SBC  .PEGS-  KFEP.SEG 

7  CGPGUP  GPOl.iR  CODE 

8 

9  OSSUNE  SS  PGPOUF-  CS  CGPOUP-  DS  DGPOUP.  ES  DGPOUP 


10 

— 

11 

STACK  SEGMENT  STOCK  STACK 

0000  ’  64 

12 

M  64  PUP>  ^ 

I 

0080 

12 

TOP.STK  LABEL  WOPP 

— 

14 

STOCK  ENDS 

15 

16 

. THIS  PPOGPON  WILL  RESIDE  ON  THE  SBC 

"DFS"  IT  HILL  WRITE  V.  2 ’CENTER'' 

1' 

DATA  TO  THE  SBC  "PIP"  VIA  THE  MULTIBUS  THE  "PIP"  HRS  BEEN  “JUMPERED" 

18 

,  SO  05  TO  OLLOW  THE  MULTIBUS  TO  ACCESS  8K  OF  ITS  POM  STARTING  OT  LOCATION 

19 

O000R  THE  “BPS"  JUMPERS  OLLOW  MULTIBUS  ACCESS  TO  BK  OF  POM  STARTING 

20 

■  OT  8000H  THE  ONBOARD  LOCATION  OF  THESE  AVAILABLE  8K-S  START  AT  6000H 

21 

•ON  BOTH  BOARDS  THE  BOARDS  CREF  FIG 

2-1  86/12 >  OPE  JUMPERED  OS  FOLLOWS 

■  SBC  DFS  JUMPERS  mTIBUS  ACCESS 

SBC  PIP  JUMPERS  MULTIBUS  ACCESS 

•5 

127-120  ~>  >:  =  o 

127-128  «>  X  =  0 

# 

Si  6-H  CLOSED 

SI  6-11  CLOSE!' 

27 

si  5-12  "  ==:-  8K 

SI  5-12  *  ==>  8K 

28 

SI  1-16  0 

SI  1-16  " 

:*q 

SI  2-15  OPEN 

SI  2-15  OPEN 

20 

SI  2-14  CLOSED 

SI  2-14  CLOSED 

’1 

i'L 

SI  4-12  “  =->  8000H 

21  4-13  OPEN  =s>  O000H 

“4 

XFEP.SEG  SEGMENT  OT  BA00M 

ON  SBC  "PIP"  OS  NOTED  ABOVE 

35 

WILL  PASS  DATA  FOP  VCNTR.  ZCNTF' 

■  If  THE  "DFS"  IS  THE  DATA  "SUPPLIER" 

AND  THE  "PIP"  IS  THE  “USEP  “ 

0000  ■  1 

*>q 

START  .BIT  OB  1  OUP<’’> 

29 

PUBLIC  B_V.B_2.DATA.RDV1 

0001  ■  1 

40 

B-V 

DB  1  DUP(’) 

00*32  ■  t 

41 

B.Z 

DB 

l  pup*  v 

O00C  ■ I 

4  j 

[ATA.Rt’Vl 

re 

1  WP'"' 

R-9 


•I,  3-sW  mm  ASSEMBLER  IR.CENTER 
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uV  ’  >t-  r  LINE  SOURCE 


MM*  *4  '  ! 

4? 

800.01: 

5S 

DB  1  WPC?) 

MMM  ■  I 

44 

OFFSET./ 

DB  1  OOP  <'?':■ 

MM'  •  [ 

45 

OFFSET. 

7 

oe  i  ouP‘"?> 

X*j*1 

">*/ 

46 

47 

46 

46 

XFER.SE6 

SBC .REGS 

secREG  oe 

ENT'S 

SEGMENT  COMMON 
880  DUPC?) 

l 

i  T,^  -'1 

50 

miss  oe 

IN  PT06X.F 

1  WJP*'?> 

me  FOLLOWING  6  BYTES  ORE  NAMED  "PARTLY.OFF" 

M  :  J  I  *1 

51 

52 

RIGHT 

r«£ 

1  I  ’.'r  >  ■>> 

0112  '1 

S] 

LEFT 

oe 

1  D*JP,'?> 

032'  ■  1 

54 

UP 

DB 

1  DUP' 

0124  1 

C" 

DOWN 

DB 

1  «*>•">' 

l 

6125  ■  1 

56 

OE 

1  0»JP<5>1 

i*m>  BYTE  TO  MAKE  3  WORDS  OF  "PAPTLV.OFF"  IN  RT86XF 

6126  ■  1 

57 

vr.NTR 

DB 

1  r 

THE  FOLLOWING  6  BYTES  ARE  IN  "LOCATIONS"  IN  P.T86XF 

0127  '1 

58 

ZCNTR 

06 

1  0UP<?) 

> 

07  *£  •  1 

59 

YMAX 

OB 

1  OUP (7) 

f 

■! 

“l 

68 

YMIN 

06 

1  DUP<’) 

0l2H  '1 

61 

ZNAX 

DB 

1  0UPP> 

> 

01  IE  '1 

62 

ZMIN 

oe 

1  DUPP’T 

S 

i 
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•k  Hhi'I «-fl  Hy  ^FHt1 

IP.i'FNTFP 

0?/24'04  PAGE 

LINE 

SOURCE 

r.4 

public 

GAEY.  GAEZ 

>\~ ' » 

GhEV 

ow 

1  BUF<''> 

*\ct  ’  i 

rf>’ 

■jAEZ 

Dw 

i  [4JP<  7* 

*>fc 

PIJE-l  I GflE  •  0hE7 

— 

:* 

71 

SBC  .PEGS 

ENDS 

?2 

?* 

EXTRN  PD.  PAST 

NEAR 

0084 

74 

S1Z  ECU 

S4H 

— 

7S 

CODE  SEGMENT  PUBLIC  'CODE 

,  h 

public 

SETPET 

0660 

7«“; 

SETPET  RFOC 

NEAP 

extpn 

INIT1  NEAP 

0000 

ss 

PUSH 

BE¬ 

0001 

1£ 

vi 

PUSH 

DS 

OuaCi  '/ 

WWi. 

B8— - 

P 

MOV 

AX. DGPOUP 

mr. 

0E.V 

g- 

HO'1 

DS.AX 

0Ei0 

84 

MON 

ES.AX 

0009 

E 80000 

E 

;-c 

CALL 

1NIT1 

00tii; 

HiiAAWi 

P 

BE 

WAIT*  MOV 

AL.STAPT.BIT 

■THIS  WAIT  LOOP  HOLDS  UP  PETICON  DATA  UNTIL 

07 

.  THE  RETRO  GRAPHICS  BOARD  IS  SET  ijp  AND  THE 

00 

.  MATROX  BOARD  IS  READV  AND  WAITING 

0001 

101 

89 

CNF- 

hL  1 

0Ml  l 

7rf<> 

90 

1NE 

HAIT0 

Hut  ■ 

11 

:<1 

POP 

D': 

Ah  14 

S' 

FOP 

BE 

Aft '  ‘ 

.  :< 

0? 

PEi 

04 

9^ 

<v. 

SETPE*  FNDP 

FUEL  U' 

VZCNTP 

00lr> 

4,’ 

V.T.NTP  PplV 

NEAP 

00  lr 

r,ri 

98 

pir.H 

BE¬ 

001' 

if 

44 

PUSH 

DS 

0010 

ff— 

P 

100 

MOW 

AX.  DGPOUP 

00  If 

SED8 

101 

MOV 

BS-AX 

>'01P 

0£fft 

192 

MOW 

ES.AX 

001F 

E00000 

r 

101 

CALL 

PD.PAST 

104 

101' 

■  HE  NOW  LW  FOP  THOSE  TRANSITIONS  WHICH  CON  BE  ASSOCIATED  WITH  A  SINGLE 

108 

BRIGHT  SPOT  ON  THE  PETICON  CAMERA  160X100  FIELD  OF  VIEW  THE  SPOT  WILL  BE 

107 

•LOCATED  AT  THE  CENTER  OF  The  TARGET  THE  PETICON  CAMERA  WILL  BE  MOUNTED  ON 

100 

■THE  CENTER  LINE  OR  THE  SIMULATED  WEAPON  SO  THAT  THE  OFFSET  OF  THE  SPOT  FROM 

109 

; THE  CENTER  Of 

THE  100X100  FIELD  OF  VIEW  WILL  MEASURE  THE  I.EAT-  ANT-  ELFVAT10N 

110 

■OF  THE  WEAPON  AT  TRIGGER  TIME 

A  SAMPLE  RETIt'ON  [>ATA  LINE  >'ONTAIN!NG  A 

111 

•SINGLE  BRIGHT  Spur  IF 

112 

11 : 

•v  0'  1C 

hit  IE  RA  h.4  -A 

R-n 
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-  OP!  i  INF  r.Ol.IPCE 

114 

Uc'  This  INDICATES  THREE  TRANSITIONS  IN  the  line  but  only  the  first  two  are 

115  .SIGNIFICANT  AT  1CH  THEPE  IS  A  DARK-TO-LIGHT  TRANSITION..  AS  INDICATED  BY  THE 

117  HIGHEST  ORDER  BIT  (HOB'.  =  8  IN  LATA  BYTE  *3  (60)  THE  FOLLOWING  TRANSITION 
113  ■ IS  AT  1EH  AND  IS  A  LIGHT-TO-BARK.  AS  INDICATED  BY  HOB=l  IN  THE  FOLLOWING 

11?  -BVTE  15  <E0'>  EVERY  LINE  HAS  A  FORCED  TRANSITION  AT  THE  END-OF-LINE.. 

120  -LOCATION  64H=100D  THE  PROGRAM  STARTS  FROM  LINE  #0  LOOKING  FOR  03  AS  THE 

121  ■ INITIAL  DATA  BYTE  IF  83  IS  NOT  FOUND-  THE  NEXT  LINE  IS  EXAMINED  THIS  IS 

122  -CONTINUED  UNTIL  180  LINES  HAVE  BEEN  EXAMINED  FOP  THE  PROPER  NUMBER  OF 
12‘-  .TRANSITIONS 

124 

12c.  -RESISTER  USAGE  IN  "CENTER" 

12b  .  (AL 1  ^  NUMBER  OF  TRANSITIONS  IN  DATA  LINE 

127  'AH-  =  BYTES  TO  ADD  TO  TATA  LINE  POINTER 

128  (BX)  =  DATA  LINE  POINTER  POINTS  TO  START  OF  DATA  LINE  IN  "SBC-REG" 

12?  (C-L)  =  LINE  NUMBER 

120  (CH  •  =  64H  =  100  ==>  THE  LAST  DATA  LINE 


M.\L  8901^' 

1?J 

1?2 

•'ENTER 

MOV 

CX.6501H 

. <CH)s65H, 1  +  LAST  LINE  <CL>=1: — >  FIRST  LINE 

#025  pRFFFF 

123 

MOV 

BX,  -2 

-  INITIAL  VALLE  OF  DATA  LINE  POINTER 

.<02 :  B4iv 

134 

MOV 

AH,  2 

-  INITIAL  DATA  LINE  POINTER  INCREMENT 

0C<2h  066*290364 

P 

135 

MOV 

VMIN,  SI2 

-  SET  INITIAL  VALUE  AT  64H 

A02F  06-0*260264 

P 

136 

MOV 

ZMIN.SI2 

-DITTO  FOR  ZMIN 

mR .4  C686288301 

R 

137 

MOV 

VMAX. 1 

AH  '-  C6062A0301 

P 

128 

MOV 

2MAX- 1 

1?9 

003E  ’A fA 

140 

DUMP 

CMP 

CH-  Ci 

■HAVE  HE  FINISHED  WITH  LAST  LINE? 

A040  7503 

141 

TNE 

OYER 

•NEED  "OVER"  BECAUSE  CONDITIONAL  JUMPS  MUST  BE 

142 

-LESS  THAN  +127  BVTES  AWAV 

►'042  EBAE?0 

143 

IMP 

{•ONE 

0040  021  h; 

144 

OVER 

ADC' 

BL-AH 

•  UPDATE  DATA  LINE  POINTER  NOW  BECAUSE  WE  CANNOT 

0047  800700 

145 

ADC 

BH,  0 

•  ADO  A  SINGLE  BVTE  TO  BX,  WE  DO  IT  IN  TWO  STEPS- 

146 

-USING  THE  CARRV  FLAG,  "CV  N.  B.  CBX)=0  ON 

147 

•THE  FIRST  PASS  THROUGH  "DUMP  * 

148 

A04A  AAA 70000 

R 

149 

MOV 

AL,  SBCREGCBX3 

-  FIRST  DATA  BYTE  ==>  TRANSITIONS  IN  DATA  LINE 

150 

004E  8AF0 

151 

Mt)V 

AH,  AL 

•WILL  FORM  DATA  LINE  POINTER  INCREMENT  IN  AH 

0850  FEC4 

152 

INC 

AH 

0852  D0E4 

153 

SHL 

AH,  1 

;  (RH)=2(AL+1).  THE  DATA  LINE  POINTER  INCREMENT 

154 

n0c-4  A Af 770200 

R 

155 

MOV 

AL  -  SBCREGCBX+2I 

005A  3C64 

156 

CMP 

AL,  SIZ 

0050  740S 

157 

JE 

SKIP 

-  IF  NO  SPOT,  THEN  GO  TO  NEXT  DATA  LINE 

m0V  F80A00 

158 

CALL 

ijOODLN 

-WILL  UPDATE  SPOT  INFORMATION 

A05F  FRDD 

159 

IMF' 

DUMP 

•GO  TO  NEXT  DATA  LINE 

160 

A0b- l  :acd 

161 

SUP 

CMF 

CL,  CH 

-THE  LAST  LINE’ 

006?  7441. 

16-2 

J? 

DONE 

.•YES'  SO  WE  JUMP  TO  THE  FINAL  CLEAN-UP 

0865  FECI 

16? 

INC 

CL 

•NO1  SO  HE  RETURN  TO  “DUMP"  AND 

0067  EBD5 

164 

IMP 

DUMP 

.•  EXAMINE  THE  NEXT  LINE 

165 

ms  A08 F000007 

R 

166 

GOODLH 

CMP 

SBCREGIBX]-  2 

-ONLY  TWO  TRANSITIONS’ 

006E  7419 

1*7 

JE 

two: 

•  IF  50.  SPOT  IS  ON  RIGHT  EDGE 

0070  2A06290’ 

P 

168 

CMP 

AL.VMIN 

•  IF  NOT,  GET  NORMAL  CENTER  RECALL  THAT 

»'  HRTPQ  ASSEMBLEF  IP  ■  ENTEP 


mm.w  WjE 


i  O' 


:  if  i 


|  I  HE  SOURCE 


0074  'n. 


IP.?  ft  CONTAINS  SBCREGtEK+2] 

1?0  JA  HI  .  JIJMP  IF  (ML)  IS  ABOVE  VMIN.  IE  CV  FLOS  =  0 

in 

172  ,  RECALL  THAT  A  CMF’  OPERATION  SUBTRACTS  THE  SOURCE  OR  2ND  OPERAND  FROM  THE 

1?:  .DESTINATION  OR  1ST  OPERAND  IT  DOES  THIS  BY  ADDING  THE  TWOS  COMPLEMENT  OF  THE 

174  ■  SOURCE  GPEPAND  TO  THE  DESTINATION  OPERAND  AND  A  CARRV-OUT  FROM  THE  HIGH  ORDER 

175  ■ BIT  CAUSES  THE  CV  FLAG  TO  SET  TO  0-  BECAUSE  OF  THE  SUBTRACTION  OPERATION 

170  AT  LEAST  THIS  IS  WHAT  THE  8 m  DOES.  AND  THIS  FLAG  IS  THE  SAME  IN  THE  8056 

177  THEY  SAY  THAT  AFTEP  A  SUBTRACT  OPERATION  "CY"  IS  SET  UPON  A  CARRY  INTOv 1 » 

.  THE  HOB  OF  THE  RESULT 1 
l  .'s 


0U7F. 

188 

MOV 

VMIN.  AL 

■  IF  NO  JUMP  THEN  UPDATE  VALUE  OF  VMIN 

O07?  8A870400 

R 

181 

N1 

MOV 

Al.  ■  SBCPEGI BX+4  ] 

■RIGHT  EDGE  OF  SPOT 

0O7D  5000280] 

R 

182 

CMP 

AL-YMAX 

00-C;l  7218 

187 

JB 

N4 

■  JUMP  IF  PAL)  IS  BELOW  VMAX.  OP  CV  =  1 

0081-  A22803 

P 

184 

NO'..' 

VMAX.  AL 

■  IF  NO  JIMP  THEN  UPDATE  VMAX 

0086  F61IS0 

185 

IMP 

N4 

•  JUMP  AROUND  “THOX" 

008?  7  6062807154 

R 

186 

TWOX 

MOV 

VNAX.64H 

.  WILL  BE  ON  PIGHT  EDGE 

006;  80870200 

R 

187 

MOV 

AL-  SBC  PEG!  86+21 

00  -2  7A06290? 

R 

18'-: 

CMP 

AL.  VMIN 

0A96  77vV- 

186 

JA 

N4 

00A8  A22'8fi; 

6 

190 

MOV 

VMIN.  AL 

0098  A0E2A0? 

R 

1?) 

N4 

CMF' 

CL.2MAX 

■  AT  THIS  POINT  Z  IS  MEASURED  DOWNWARD 

iim4  ,  204 

192 

JB 

N? 

■  ANT.  WE  MUST  COMPLEMENT  2  AT  END 

00AI  860E2A07 

t 

■i<r 

MOV 

2MAX. CL 

•UPDATE  ZMAX 

00A5  ' H0E2B02 

P 

194 

N7 

CMP 

CL.  ZMIN 

00A?  "704 

195 

JA 

N? 

0006  880E2B0? 

P 

196 

MOV 

ZMIN.  CL 

UPDATE  ZMIN 

00AF  FECI 

197 

N? 

INC 

CL 

00Bi  c: 

198 

PET 

1Q? 

0062  C 606200700 

R 

200 

DANE 

MOV 

MISS. 0 

00B7  807 8280764 

P 

201 

CMP 

ZMIN. 64H 

OAP.r  75AD 

TNE 

N5 

00BE  C6O62M0501 

R 

706 

MOV 

MISS. 1 

■  ZMIN  =  P4H  --='■  Hi?  SPOT.  SO  SHOT  WAS  6  HISS 

00C,  1.1-06040001 

R 

MW 

BAD-MISS. 1 

•WE  APE  "REALLY  FINISHED" 

00C8  E87E90 

205 

IMP 

READ 

0008  80TE2B0701 

R 

206 

N5 

CMP 

ZMIN. 1 

0000  7505 

20? 

JNE 

N€ 

00C'2  C606270201 

P 

20? 

MOV 

UP.  1 

SPOT  INCLUDED  FIFST  LINE  ==>  SHOT  WAS  HIGH' 

0007  803E2A0764 

P 

20? 

N6 

CMP 

ZMAX.64H 

00DC  7505 

210 

JNE 

N7 

00OE  C606240;<01 

F 

211 

MOV 

DOWN. 1 

•SPOT  INCLUDED  LAST  LINE  ==>  SHOT  WAS  LOW 

00E2  807E2 90701 

P 

212 

N7 

CMP 

VMIN- 1 

00E«  7505 

21? 

TNE 

NS 

00FA  C606220-01 

P 

214 

MOV 

LEFT.  1 

00FF  807E2807P4 

P 

215 

N8 

CMF' 

VMAX. 64H 

00F4  7505 

.'•16 

JNE 

FINI 

008'-  P606210  01 

F' 

217 

MOV 

PIGHT  1 

216 

00f  8  B0*:r 

21? 

F  INI 

MOV 

AL.65H 

088i'  2A062A0 

R 

220 

SUB 

AL.ZMAX 

0101  8465 

221 

MOV 

AH.65H 

0107  2A262B07 

R 

222 

SUB 

AH.  ZMIN 

0107  A2'801 

R 

222: 

MOV 

ZMIN. AL 

B-l  3 
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M0J 

LINE 

SOURCE 

010R  88262R02 

R 

224 

MOV 

ZHRX-RH 

01RE  R02803 

R 

225 

MOV 

RLVMRX 

Bill  02062903 

R 

226 

ROO 

RLVMIN 

0115  8R1E0500 

P 

227 

MOV 

BL,  OFFSET.V 

0118  02C3 

228 

ROD 

RL,8L 

011B  R2;60i 

R 

229 

MOV 

VCNTR,  RL 

011F  020100 

R 

230 

MOV 

B.V,RL 

0121  6464 

231 

MOV 

RH,  100 

0i.  •  :pe0 

232 

Sl.if 

RH,  RL 

0124  SHC4 

233 

MOV 

RL.-RH 

0122  9B 

234 

CBN 

0126  R72C03 

R 

235 

MOV 

GfiEV, RX 

0126  00200' 

P 

236 

MOV 

RL,ZMRX 

012E  02062BO3 

R 

237 

ROO 

RL.-ZM1N 

R152  BR1E060H 

P 

238 

MOV 

BL, OFFSET. Z 

0i'6  02C: 

239 

RDO 

RL,BL 

0138  822703 

R 

240 

MOV 

ZCNTR,  RL 

0136  020200 

P 

241 

MOV 

B.Z,  RL 

013E  64F4 

242 

MOV 

RH.  108 

0140  2HE0 

243 

sue 

RH,  RL 

0142  8RC-4 

244 

MOV 

RL.RH 

0144  % 

245 

CBN 

0145  032E83 

R 

246 

MOV 

GREZ- fiX 

0146  B001 

247 

REPO 

MOV 

RL,  1 

0140  020300 

P 

243 

MOV 

0RTR.R0V1,  RL 

249 

0140  IF 

250 

POP 

OS 

014E  50 

251 

POP 

BP 

014F  C7 

252 

RET 

253 

254 

VZCNTR 

ENOP 

255 

— 

256 

CODE 

ENDS 

257 

258 

END 

•KsfMBLV  COMPLETE,  NO  ERRORS  FOUND 


;  HORIZONTRL  BOPESIGHT  OFFSET 
;  VCNTR  IN  HALF-PIXELS  FROM  LEFT  SIDE  OF  SCREEN 


•  GfiEV  +IVE  TO  THE  RIGHT  CRMERR  INVERTS 


;  ZCNTR  IN  HRLF-PIXELS  FROM  BOTTOM  OF  SCREEN 


i GREZ  +IVE  IF  HIGH  REF.  MCDONNEL-DOUGLRS 

;  THIS  TELLS  THE  SERVE  PROCESSOR  THRT  NEH 
;DRTfl  RRE  RERDV. 
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tt  H-ftft  COMPILER  MMlN.DPftttiN.MmE 


10/01 /10 


M-.-i:  PL/N-86  V?  1  COMPILATION  'IF  MODULE  MAIN-DPAGON-HODULE 
OBJECT  HUE  PLACED  IN  >  i  DPftfjMN  OBJ 

COMPILER  INVOKED  BY  FtMBft  Fl  ORftGMN  PLM  DEBUG  ROM  IXREF  BATE  10/01/10- 


1  Mft  1 N -DPAGON-MOOULE  00. 

/♦****♦  0* ♦+*♦+*****  V*  *******************  « ***^*****  ******* ****** ********** 

OFF-BOARD  ABSOLUTE  ADDRESSES 

******************* ******** «»********************************»***********/ 

/  1  OECLAPE  ‘H_MIS.ftS-:U.V.MIS.ASCII.X.MISJJSnri  (10)  BVTE  AT  <AA02BH>. 

FEL. -SHORT  BVTE  AT  0AO1EH-. 

/***»*  -  *  ********  *  ****  ENO  OFF-BOARD  ABSOLUTE  ADDRESSES  *#**♦****#*♦♦****+/ 
S  1  DECLARE  -H.M1SS-HEX  V.MISS-HEX,  X.MISS-HEX'1  INTEGER  EXTERNAL.  I  BVTE. 

4  l  SHOW.  THRUSTERS  PRiXEPURE  EXTERNAL. 

5  2  END  SHOW. THRUSTER'S. 

ft  1  MISS. COMMENT  PROCEBUPE'HEX$AOR,  DECtftDP,  DIRECTION)  EXTERNAL, 

r  -  DECLARE  THEXWDP.  OECRABR'-  POINTER.  DIRECTION  BVTE. 

A  2  ENI-  MISS-COMMENT. 

•-  1  DECLARE  RT  L l TEPflLLV  0  •  LT  LITERALLV  t  . 

IJP  LITERAL V  2  •  DN  LITEPALIV  3  - 

SH  LI TEPflLLV  4- 

10  1  DECLARE  FOREVER  LITFPflLLV  WHILE  1'.  N0.TR1G.PIJL  LITERALLV 

'  INPUT -'PORT  _B  -  AND  1’.  ACTION  BVTE, 

11  1  V.REPPISE  PROCEDURE  E  TERNAL. 

IE  2  END  V-REPR1SE 

IS  1  H .REPRISE  PROCEDURE  EXTERNAL. 

14  END  H-REPPISE. 

15  1  TIME-ICLflv  PPOCEOUPE  -  HOU.LQNG  •  EXTEPUAt  . 

lft  DECLARE  HOW.  I ONG  UOPD 

1.’  END  TIME  [f l AV. 

lft  1  SETRFT  PROCEDURE  EXTERNAL- 

19  2  END  SETRET 

20  1  SOUND  PROCEDURE* *IND>  EXTERNAL. 

21  2  (CCLARE  MND  BVTE- 

22  2  END  SOUND 

23  1  DECLARE  INITIAL-BANG  LITERALLV  7  GVPO.STAPT  LITERALLV  '1. 

24  1  [tCLAPE  ARM  LITERALLY  2’-  DISARM  LITERALLV  ’3  , 

f-POP  LITERALLY  4  .  NO-DROP  LITERALLY  '5'. 

FINISHED  BYTE  EXTERNAL 

25  1  DECLARE  PORT-A  LITEPALLV  '0C8H'.POPT_E  LITERALLV  ECAH  . 


<  . 
* 
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PORT/  -.ITERPLLV  0CCH'.  CONTROL  LITEPALLV  '8CEH/; 


2* 

1 

V2CNTR  PROCEDURE  EXTERNAL 

jr 

- 

END  vrCNTR 

2H 

1 

PPI.SET  PR-XE DUPE  EXTERNAL.  /*  SETS  UP  PORTS _fl  *  _C  OUTPUT.  PORT.B  INPUT  */ 

29 

> 

END  PPI.SET. 

if' 

1 

FLIGHT  PROCEDURE  EXTERNAL. 

2 

END  FLIGHT. 

12 

1 

INITIATEJVAR  PROCEDURE  EXTERNAL. 

32 

2 

END  INITIATEIVAF 

/*  **«*»**♦+*♦»♦*  •*<*+**♦*  ****-**♦**#»**  »♦+************»******» 

PROGRAM  STARTS 

**+*********************-m  *#****#**»*»♦**#*********#*********/ 

24 

1 

START.UP 

CALL  PPI.SET. 

*  t 

j  j 

1 

CN.ITPUT< CONTROL >  =  NO-DROP  /»  DRIVES  POPT.C  BIT-2  HIGH  *  Jl-20  LOW  */ 

1 

OUTPUT. CONTROL  =  ARM,  /»  DRIVES  PORT.C  BIT-i  LOW  *  ".Jl’'-22  HIGH  */ 

/♦  PPOBflBLV  NOT  NEEDED  —  PORT.C  COMES  UP  LOW  FOLLOWING  PPI.SET  */ 

"V- 

1 

[-0  1=0  t*  95. 

ic- 

2 

H.MIS.ASCIICI)  =  . 

s'? 

t 

END- 

4h 

1 

CALL  INITlATEtVAP  .•*  FOR  DRAGON  FLIGHT  */ 

41 

1 

DO  WHILE  NCi.TPIG.PUL, 

4; 

END 

4 

i 

CALL  SOUND- GYRO-START). 

44 

1 

CALL  TIME.DELAY  -560). 

4r. 

1 

OUTPUT 'CONTROL)  =  DROP. 

- 

46 

1 

OUTPUT. CONTROL)  =  DISARM. 

* 

47 

1 

CALL  SOUND-: INITIAL-BANG >. 

■ 

40 

1 

CALL  SETPET. 

*  / 

49 

i 

DRAGON.Fl  VS  [-0  WHILE  NOT  FINISHED, 

so 

? 

PALL  VZCNTR; 

■* 

r'l 

j 

CALL  FLIGHT, 

V 

END  0RA60N.Fl VS 

S3 

1 

IF  H. MISS. HEX  '  2  THEN  CALL  MISS.COMMENT<0H_HISS_HEX, 0H.MIS.ASCII. PT-. 

ric 

1 

IF  H-MISS-HEX  :  -2  THEN  CALL  HISS-COMMENT ( 0H.MISS.HEX,  0H.M IS.ASCI I.  LT U 

1 

IF  V.MISS.HEX  >  2  THEN  CALL  MISS.COMNENT'BV-MISS.HEX, 0V.MIS.ASCI I .  UP); 

j'i 

i 

IP  V.MISS.HEX  <  -2  THEN  CALL  M I SS-COMMENT < 0V.MISS.HEX,  @V  J1IS.ASC!  I ,  DN>; 

■si 

i 

If  /.MISS .HEX  <  -24  THEN 

X 

( 
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6? 

t 

DROP. SHORT  DO, 

? 

XJ1ISS-HEX  -  lABSOCMISSJCXV* 

? 

CmLL  NISS-COHMENT(0X_MISS_HEX, 0v_M!5-ASCII, SH'u 

r>‘i 

? 

FELL-SHORT  =  1. 

2 

END  DROP-SHORT. 

b? 

1 

ELSE  FELL-SHORT  =  8 

hS 

l 

CALL  SHOW-THRUSTERS 

1 

ACTION-WAIT  /*  WAIT  FOR  REPRISE  */ 

DO  FOPEVER. 

70 

:• 

ACTION  =  NOT  < INPUT- POPT.B)>, 

71 

2 

IF  ACTION  =  2  THEN  CALL  H.REPRI SE¬ 

73 

2 

IF  ACTION  =  4  THEN  CALL  V.PEPRISE 

7C 
'  i 

? 

END  ACTION.UAIT. 

~*r\ 

L 

END  MAIN.DRAGON.MODULE- 

MODULE  INFORMATION 

CODE  AREA  SIZE  =  0181H  3850 

CONSTANT  AREA  SIZE  =  0808H  80 

VARIABLE  AREA  SIZE  =  8802H  20 

MAXIMUM  STACK  SIZE  =  000CH  120 

125  LINES  READ 
0  PROGRAM  ERROR' S'* 


END  OF  PL/N-8A  COMPILATION 


i-l'm-a*  COMPILER  DffRGON_ljT  I L I  TV  82/24/09 


Pl-VI-86  ''2  1  COMPILATION  OF  MODULE  DRAGONJJTILITV 

•jt>  :e*  t  module  placed  in  fi  dragut  obj 

COMPILER  INVOKED  BY  PL  MSB  FI  DRAGUT  PLM  DEBJJG  ROM  IXREF  DATE  (02/24/09) 


1  DRmi 'ON  i  IT  D_  I  TV  DO; 

*»»n  «***,m:.m.*******#****#***#***#*****#**##*##*#*#**### 

OFF-BOARD  ABSOLUTE  ADDRESSES 

*»*-.«**»*♦***********************#*********#*****#*****#*****»*#******/ 

2  1  DFClARE  ■  ACTUAL. THP'USTEP-ASCH.  IDEAL_THPUSTER-ASCI I >  (24)  BYTE  AT  ('0fW50H>. 

DUMMY  BYTE  AT  (0A020H) 

,  ,*+***»*♦**,,**♦*+*♦  END  OFF-BOARD  ABSOLUTE  ADDRESSES************#**********/ 

'  1  DECLARE  COUNTERS  LITERALLY  ADAH  •  COUNTERi  LITERALLY  '0D2H', 

CONTROL  LITERALLY  0D6H  •  /*  SEE  PAGE  3-3  IN  86/12  MAN  */ 

4  1  DECLARE  CNTR0MODE  LITERALLY  34H',  /*  2  BYTES,  MODE  2  */ 

CNTR1M0PE  lITERALLY  74H ' •  /*  2  BYTES,  MODE  2  */ 

/*  TO  PP'iijRAM  THE  8253  PROGRAMMABLE  INTERVAL  TIMER  OP  "PIT”  NOTE  THAT  *' 

-'*  THE  INPUT  FREQUENCY  TO  CLK0  IS  1.  23  MHZ  ==>  AN  813  NANOSEC  PERIOD  */ 

c.  I  DElLARE  LOWS  LITERALLY  06-  /*  COUNTER  0  PERIOD  IS  5  MILLESECONDS  */ 

HIGH0  LITERALLY  18H  ■ 

-  ♦  NOW  WE  WILL  CONNECT  OUTS  TO  CtKl  BY  JUMPER  59-61  INSTEAD  OF  THE 
DEFAULT  CONNECTION,  WHICH  IS  59-60  *' 

6  1  DECLARE  DM  LITERALLY  5F4  /*  COUNTER  1  PERIOD  15  5  MINUTES  */ 

HIGH1  LITERALLY  0EAH  .  /*  =  5  MIN  *  60  (SEC/MIN)  /  A  005  SEC  -1  IN  HEX  */ 


C  1  DEuBiRE  TINE5LATCH  LITERALLY  40H  A  COUNTEP  1  LATCH  PAGE  3-13  OF  86/12  */ 

>LS»TIME*BYTE.  MS*T1ME$8YTE >  BYTE  PUBLIC. 

-  1  DECLARE  TIME  ADDRESS  PUBLIC 

1  DECLARE  LOW*TINE*BVTP  BYTE  AT  <  TIME'.  HIGHtTIMERBYTE  BYTE  AT  (  TIME  +  1>, 

IH  1  TIMEPJSTART  PROCEDURE  PUBLIC- 

11  2  OUTPUT v CONTROL  <<NTR0MODE,  /*  SET  C'SJNTEPS  0*1  MODES  */ 

12  2  OUTPUTCCONTPOL  '=CNTR1M0DE, 

1  2  OUTPUT ■' C O'JNTERO ) =LOW0 ■  /*  INITIALIZE  COUNTERS  */ 

14  2  C<JTPUT(COUNTER0)=HIGH0. 

15  2  OUTPUT- COUNTERI >=LOWl, 

16  :  OUTPUT ( COUNTER1 ) =H I GH1 • 

1C  l  END  TIMEPISTART. 

IS  1  CLOCK $PEAD  PROCEDURE  ADDRESS  PUBLIC-  /*  GETS  THE  CONTENTS  OF  COUNTER  1  */ 
l*  OUTPUT  < CONTROi  ■  -t  1  me  HATCH- 

^  L.OM*TIME*BYTE-I  UPUT < C  OUNTEP1 '  - 

21  i  H  l  GH4T I  ME  *BVTE=  I NPIJT  L  COUNTERI )  - 

2.  ,  RETURN  TIME, 

.1  1  END  CL  iV  if  READ 

24  t  mFCLAPF  '  IDEAL .SKTCNT • TARGET .StTCNT ,  INTEGER  EXTERNAL 
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■•*  N  B  REFERENCES  ARE  TO  ISCB  86/12  98086458  */ 

DECLARE  PP I. CONTROL  LITEP8LLV  ACEH'.  BUS.FREE  LITEP8LLV  '0BH'; 

DECLARE  SENfiPIO  8VTE  8T  <  6808H', 

TARGET .LOC  PROCEDURE' ID'  INTEGER  PUBLIC- 
DECLARE  ID  6VTE-  /*  ID  IS  IDENTIFICATION  OF  H.V.  OR  y  TORO  * 
DECLARE  POSITION  INTEGER- 


/*  REPEAT  FOR  V  AND  X  C f  TARGET  «/ 


50 

2 

IF  SENARIO  =  'ft  THEN 

31 

■> 

SCENE .ft  DO; 

-c. 

3 

IF  ID  =  1  THEN 

S3 

7 

TftRG.H  DO; 

34 

4 

END  TftRG.H- 

35 

3 

RETURN  POSITION 

36 

3 

END  SCENE-ft- 

37 

L 

IF  SENARIO  =  'B  THEN 

38 

l 

SCENE .B  DO. 

39 

3 

END  SCENE. B- 

40 

> 

END  TAPGET.LOC- 

41 

1 

INI T. STEPPER  PPOCE'XIRE  P 

42 

; 

IF  SENARIO  =  ft  THEN 

42 

e. 

INIT.A  DO, 

44 

3 

END  INIT.A. 

45 

2 

IF  SENARIO  =  B  THEN 

46 

y 

INIT.B  DO- 

47 

3 

END  INIT.B- 

48 

tZ 

ENt>  INIT.STEPPEP. 

49 

1 

HX/ftS  PROCEDURE  -HEX. ADR 

50 

y 

I-ECLARE  'HEX. ftf'R- ASCII J 
ASCI!  BASED  ASC 

51 

2 

he:;  -  I  AES' HE/.. 

5/ 

2 

[X)  N=0  TO  4. 

53 

H  ^  4-N- 

54 

1 

REMAINDER  =  HEX  MUD  18  • 

55 

l 

ASCII1*'  =  LOW''  UNS  IGN'Rf 

j6 

3 

HEX  =  HEX/10. 

57 

3 

END. 

58 

2 

N=0, 

59 

2 

DO  WHILE  ASCII'N'  ^  30H  fi 

68 

3 

ASCII'NT  =  20H- 

81 

3 

N  =  N+l. 

82 

3 

END- 

83 

2 

END  HX2AS- 

/*  ETC.  ETC  */ 


SHOW, THRUSTERS  PROCEDURE  PUBLIC- 
CALL  HX2AS(BTAPGE  f.StTCNT- AACTUAL.THPUSTEP.ftSC 1 1  - 
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H 

R  ; 

li'. 

S'. 

T'. 

t 


i.i' 

E' 


96 

FAIL  h''2AS>. HiDEHL.SJTCNT. 6IDEAL.T 

6t 

1C€AL. THRUSTER  6SCII-5'- 

T  . 

Oc. 

i' 

IDEAL.THRUJTEP.hSCH-S- 

y  H  ■ 

9j 

i' 

IDEAL.THRUSTEP.ASCII-7- 

-  P  • 

64 

I  DEAL  .THPUSTEP  .ASC  IKS'1 

=  U  . 

95 

J 

IDEAL.THRUSTER.ASC.IIi9) 

=  S'; 

98 

IDERL.ThF-  u.TER.ASCi  I  (10) 

=  'T  . 

i DEAL. THRUSTER. ASC 1 1  ill t 

=  E  • 

An 

; DEAL.THRU5TEP.ASCI I i 12) 

=  R'. 

yy 

;  LEAL. THRUSTER. ASC 1 1  - 13  - 

=  5'  • 

96 

; 

I DEAL.THRUSTFP.PSC l 1 ( 14 ; 

= 

5; 

IDEAL.THPUSTER.ASC 11(15; 

=  I 

92 

t 

1DFAI.  .THRiJSTER.ASCI  1  -  IF  - 

^  D  ■ 

92 

c 

IDEA!  .THAJSTER.ASCIUlTi 

=  •£'• 

94 

c 

1 DE  AL .  T  HR-JSTER  .ASC  11-19  - 

-  H  . 

95 

IDEAL  -THRi.iSTEP.ASC  1 1  - 19'- 

- 

% 

c. 

IDEhl. THPUSTEP. ASC! I  -  26  ■ 

-  L  • 

97 

IDEAL. TrREISTEP.  ASC T I-  2i > 

-  V  . 

.J>:  2  ENt1 

99  1  f1IS$.('0MHfcNT  EC"  RE-  HEXIAOP  DEtiAOP-  DIREC ^ I C*N '■  PUBLIC: 

!«•  2  OECLARE-'HEXIAOP  DECtADR-  POINTER. 

phPh';E  -hS.EU-  DEriADR  .i6>  BYTE-  <N,  DIRECTION-  E-'TE- 

'*'1  i  CALL  HX2AS<  HE X$ADR  f€CIA!-R  - 

l«2  2  PHRASE-5-  - 

<6  2  PHRASE  '  t. )  -  F 

!Hi  /  F  HiRH'-.F  •'  7  .  ^  F 

1A5  I'  PHRASE- :  '  -  E 

in/  :■  PHRASE-  9  ■  =  i 

I  n  2  PHRACP .  lH  •  -  • 

18;-  1  DO  CaSE  r-iPfi’TiON. 

16*  >;• 

,<n  4  PHRASE  -11  =  F 

li!  4  PHPhSE- i.  -  - 

4  phrase- r  - 

!  ■ "  I  PHPASF-14. 

I.  4  PHPhSE  -  1c  i 

' : 4  END 

■  •  iifi. 


i-  -.  AlTUAL_tHPUstER  JiSi'I  I '  5  - 

-.•  c.  ACTuAi  ..THPUSTER-ASCIUb-  = 

o?.  L  ACTUAL. THRUSTER. ASCI I  7  -  = 

89  4  actual.thpustep.asciks-  = 

76  ;  ACTUAL  .THRUSTFR.ASC  I K9-  - 

’!  :  ACTUAL.  TAPI -STER.ASC  I M6-  = 

72  ■  ACTUAL.THRUSTEP.A5CI  i  11  •  = 

7:  ACTUAL  _  THPusTEP.  Ay.  I  i  - 12-'  - 

74  ACt'.'Al.  THPUSTEP-ASCn-'  I  -  - 

<.  actual.  THPusTEP.Psa;- :4.  _ 

?f  :■  actual.thpi.‘.step.asc:1'15>  = 

77  2  AC  THAI.  .THRUSTER.hSC  1 1 » 18  T  = 

79  ;  ACTUAL  THRUSTER.hSC 1 1  - 1 7  - 

79  L  Hi TUAL. THRUSTER.hSC II- IS  - 
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i'  +  HI  : .  I T  r 


! 1  •  PHRASE  ■  LI  •  - 

1 1--  -*  PHC'HSE ' 1  -  1  t 

11  -  *  P4i»'H>E  '  1 .  !  - 

;  t*  4  PHRASE*  *4 

!  :  4  ENi'- 

\  '  i'll':. 

!.  4  PHRASE  ■’■ 

;  j  ►  hfh'F ■  ■  ■ 

i.1-  4  ■>HPfiSE’  1-.  ■  -  'j 

4  PHRASE  ;j  •  -  *■ 

I  .  4 

L.  :  00- 

4  FHPASt'll'  -  1  ■ 

r  .i  4  phrase  ii  ■  -  o 

1  :  4  PHRASE'  L  '  - 

i,:  4  end 

'  do. 

i;4  4  ^HRflSE' 11  •  =  : 

i:-c.  4  phrase ai'  -  a  . 

1/6  4  PHRASE1 12 1  -  U  • 

127  4  PHRASE' 14 .  =  P  ■ 

1" S  4  PHRASE' 15'  -  R 

*79  4  ENT'- 

L4A  :  END. 

141  2  END  MISS.iOMHEN'. 


14 i  1  SOUND  PPOCEtliRR  -WHAT  PtJFlK 

147  J  DECLARE  vIHA  j  iMt*  &VTE •  PORT -A  LITERALLV  0C6H  . 

144  „•  OUTPUT  'PORT. .A ■  -  WHATJ  INC*.  SOUNt*  COMMAND  OUTPUT  THRU  PORT.®  • 

14/  .  OUTPUT  '  RP I  .CONTROL  1  -  1-  ."•»  SETS  F'PI  PORT.C  BIT  A  FOR  SOUNt-  CONTROL  » 

146  t-  OUTPUT  •  PP ;  .CONTROL'  -  1  EXTRA  ONES  FOR  6  MICRO-SEC  TIMING  * 

14'  2  OUTPUT  .po; .CONTROL'  =  1 

14.4  2  OUTPUT  .  SPI .CONTROL’'  =  0.  *  RESETS  RR'l  RORT.C  BIT  0  *■' 

14-4  J  END  SCUM’. 


150  1  0N.6RD.SET  RFOCEKIR'E  ■  SEMA4_RTR.  pit.  PUBLIC. 

151  2  DECLARE  SFMA4.PTR  POINTER.  BIT  BYTE.  BUS.LOO  L I TERALLV  AAH  . 

/*  N  B  0255  C-5  WHEN  RESET  ■  =*•>.  ASSERT:  THE  BUS  "OVERRIDE  '  »•' 

>  ERER  TO  PAGE  3-16- -17  FOR  PR!  PORT.C  6IT  SET/PESET  •  ' 

15c  2  DECLARE  TEMP'  &VTE-  SEMA4  BASED  SEMA4.FTR  BVTE. 

re-  2  TEMP  --  1 

154  2  IP  BIT  -  I  THEN  SET.SEMA4 

[«'  WHiLP  TpMF  ‘ 

156  F I  RAT  ihEO  I"''  WHILE  SEMA4  -  l.  >  WAIT  HERE  TO  AVOID  REPEATED!  v  LOaiNG/UNLOCHNG  BUS  * 

157  4  END  FIRST  C  HErP  • 

15P  OUTPUT  .RCJ  ■  ONTPOL  ■  =  BUS-LOO  •  *  THIS  PEOUFSTS  A  BUS-LOO  WHEN  WE  GET  CONTROL  *r 

15-4  ;<  1EMP  :  ttwtv  •«  when  THIS  EXECUTES.  WE  HAVE  CONTROL  OF  h  lOOED  BUS 

ISA  j  TEMP  -  SEMA4.  '*  SAVE  CURRENT  PIT  OF  THE  SEMA4  ♦/ 

161  SEMA4  --  l.  >  SEMA4  IS  NOW  SET  MILL  DETERMINE  LATER  IP  iC  DID  H 

162  ?  OUTPUT. PPJ. OWROl  ■  =  BUS.FREE  /*  IF  SEMA4  WERE  OFF-BOARD-  COULD  REPLACE  THESE 

•'*  LAST  FI‘»'E  STEPS  WITH  "LCOSET'SEMA4_pTR.  1  •  ♦/ 
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/*  IF  SC'-'hJ  MA3  SET  ANOT'-EP  MASTER  DID  IT  SO  MUST  WRIT  TILL  USER'  RESETS  IT  */ 

If'  ?  END  StT.SEHW- 

If  4  2  IF  BIT  =  0  THEN  iLtAP_SENA4  DO, 

Iff  :  OUTPUT'  PEI.  CONTROL 1  =  BUS-LOCK. 

IE"  TEMP  -  DUMMY. 

lfP  3  SEMA4  =  0;  /*  ASSUMES  PROGRAM  NEVER  CLEAR'S  SEMA4  UNLESS  SAME  PROG  SET  IT  */ 

IE'5  ;  OUTPUT  *'  PP I  .CuNTR-IL  '  =  BUS-FREE- 

IT  A  C  ENC«  CLERP-SEMA4- 


172  2  END  ON. 6R0  .SET- 


l'S  L  PPI.SET  PROCEDURE  PUBLIC- 

174  2  DO- 

175  S'  DECLARE  PP  I  .MODE  LITERALLY  'S2H.  /*  PORTS  A  4  C  OUTPUT  B  INPUT  */ 

/*  REF  PAGES  2-10  >-  '-15  */ 

1TE  S  f€CI  APE  SFL AG  LITERALLY  0-  /*  RESETS  PORT  "C  BIT  A  ♦ 

/*  WHICH  OUTPUTS  A  'T'  FROM  '400.  SETTING  THE  "SOUND-FLAG”  TO  8748  */ 

17'  :  OUTPUT- PP  I  jONTROL)  =  PP1-M0DE-  /*  ALL  PPI  OUTPUTS  GO  LOW  INCLUDING 

PORT-C.  BIT-5.  WHICH  ASSERTS  THE  MULTI-BUS  "OVERRIDE  “  */ 

I'D  S  CMJTPUT  <  PP  I  .CONTROL )  =  BUS-FREE,  /*  NEGATES  THE  MULTI-BUS.  OVERRIDE 

1'?  I  OUTPIJT  TPPI  -CONTPOt.)  =  SFLAG, 

It*  END- 

1*1  2  END  PPI.SET, 

102  1  TIME-DELAY  PROCEDURE  'HOW-LONG'  PUBLIC- 

IBS  2  DECLARE  'HOH.LONG-  TEST. WORD)  WORD, 

184  2  LOOPA  DO  WHILE  HOW-LONG  O  8' 

185  3  TEST-WORD  =  3?8H, 

18f  ’  LOOPB  DO  WHILE  TEST. WORD  <>  0, 

187  4  TEST.HOPD  =  TEST .WORD  -1, 

188  4  END  LOOPB- 

188  3  HOW..LONG  =  HOW.LCiNG  -  1- 

180  3  END,  LOOPA- 

181  2  END  TIME-DELAY. 

182  1  END'  OPRGON..UTILITV- 


MODULE  INFOPMATIf'N 

:«€  ACSA  SIZE  =  0475H  1141D 

rONSTANT  AREA  SIZE  =  00A0H  OD 

VARIABLE  AREA  SIZE  =  000EH  14D 

MAXIMUM  STAfk  SIZE  =  801AH  2C-D 

2A4  (  £5  REAfi 
O  PPOGRAM  ERROR-S' 

END  OF  PI  'M-P-.  '  iMF  RATION 
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iSIS-II  MC5-06  MACRO  ASSEMBLE*  V?  1  ASSEMBLY  OF  MODULE  R0RS8 
OR.  I  EC  T  MODULE  PLACED  IN  Pi  r*f&z  <*i 

As.-EM6i.EP  1NVC4FD  BV  W  El  I+AGU  -PC  DEBUG  C49TE  .02/24/0?' 


I  IN'  Of  I 


i  INE  SOURCE 

:  THIS  PROGRAM.  STARTED  sept  5.  1979-  READS  DATA  FROM  ThE  PET  ICON  RSB682B 

2  INTERFACE  [W  INTO  THE  *6/12  MEMORY  REFERENCES  OPE 

1  PS66020  OPERATING  INSTRUCTIONS.  MARCH  ?.  1979-  EWG  RET  ICON 
4  SUNNYVALE  CALIFORNIA 

s  2  MCS-86  ASSEMBLE  LANGUAGE  REFERENCE  MANUAL,  19*00*400. 

6  INTEL  COPP.  SANTA  CLARA.  CALIFORNIA 


*  IT  IS  BEING  CLEANEI-  "P  A  BIT  FEB  20.  19*1 

IP  EOUATE*  AT  TOR  OF  PROGRAM  PEP  *>  8-1.  REF  2 


11 


NAME 

RCRSB 

Il¬ 

DGPOUR 

GROUP 

DATA.  STAOV.  SBC.REGS.  PSB.REGS 

ia 

(GROUP 

GPOUP 

CODE 

IS 

0001 

16 

INNS* 

EOU 

*1  .  SET  UP  PC*  CAMERA  1  ONLY  SEE  P  19.  REF  1 

00/4 

17 

LINES 

EGO 

100 

0010 

18 

ENDFP 

ECU 

10H  • MASK  FOR  THE  2-T0-THE-4TH  BIT.  R  45.  REF  1 

19 

20  ASSUME  SS  DGROUR.  CS  /GROUP.  OS. DGROUR  •  ES  DGROUR 

21 


22  SBC -PEGS  SEGMENT  COMMON  NOTE  THAT  "COMMON"  FILES  MUST  BE 

22  . COMMON  IN  ALL  MODULES.  I  E  CAN  T  BE 

0000  •'  000  24  SBC  PEG  OB  800  DUP  <’>  ;  "AT"  IN  ONE  AND  “COMMON*  IN  ANOTHER 


2r'  .  THEV  DO  NOT-  HOWEVER-  HAVE  TO  BE  POINTED 

>:■  ■  TO  BY  THE  SAME  SEGMENT  REGISTER  IN  BOTH 

27  .  MODULES.  NOP  DO  THEY  HAVE  TO 

28  • OF  THE  SAME  LENGTH 


0220  -6 

2? 

partly.off 

DB  6  BUR 

.7.  ■  INITIALE2E  =  0 

03?A  -  A 

'.O 

70 

LOCATIONS 

16  6  (UP 

•*'.  INITIALIZE  =  1 

21 

- 

SBC.REGS  ENDS 

— 

-- 

PSB.REGS  SEGMENT  AT  0EP0H 

BASF  ADDRESS  OF  RET  ICON  ROAPD  IS  0FA00H 

00M0  ‘ 

74 

RS&DTA  DB 

2B0H  DUP  ■  ■ 

0200  ' 1 

S 

STAT1  DP 

1  DUP  0> 

■  THIS  FORM  IS  NECESSARY  TO  AVOID  LOADIN'}  EPPORS 

02*1  ■ 11 

76 

STAT2  DB 

m  r*up  c’t 

t 

0?p..  - 

3? 

RESET  DE' 

2  DUP<  ■  ■ 
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L.OC  OBJ 

LINE 

SOURCE 

020E  >1 

78 

CNFG15 

06 

1  DUP  (?) 

O') 

'i 

«20f  a 

39 

PROCOM 

oe 

1  OOP  (?) 

_ _ 

40 

PS6-PEGS  ENOS 

41 

— 

42 

STACK 

SEGMENT  STACK  'STACK' 

0000  <16 

43 

DM 

10  DUP  (?) 

) 

0014 

44 

STKTOP 

LA6EL 

WORD 

— 

45 

STACK 

ENDS 

46 

47 

— 

48 

CODE 

SEGMENT  PiJBLIC  'CODE' 

49 

50 

PUBLIC 

INITl 

■•wwi 

51 

INIT1 

PROC 

NEAR 

; INITIALIZATION  OF  RSB  6020  INTERFACE  BOARD 

0000  A20C02 

P 

52 

RT3NIT 

MOV 

RESET,  «L 

i RESET  IS  A  "DUMMY"  REGISTER,  ALL  IT  NEEDS 

0003  C6068E0201 

P 

53 

MOV 

CNFG15, 1NMSK 

■  IS  THE  “MHTC2"  PULSE  FROM  PI  #20 

0008  020F02 

P 

54 

MOV 

PPOCOM,  AL 

; PROCOM  IS  ALSO  A  "DUMMY"  REGISTER 

0006  C3 

55 

RET 

% 

57 

58 

INITl 

ENDS 

PUBLIC 

PD.PAST 

000 ( 

59 

PD-P8ST  PPOC 

NEAP 

000C  A20E02 

F 

60 

LAST 

MOV 

PPOCOM.  AL 

■  HILL  WAIT  FOP  LAST  RASTER  LHC 

.-j.'.nr  r>,~vw%  -> 

tWwc 

P 

61 

WTLP0 

MOV 

AL.STAT1 

FROM  HERE  TO  CHECK  IS  ST'D  NUCMCV 

0012  O0E0 

62 

SHL 

AL-1 

0014  7383 

JNB 

HTLP3 

0016  R20F02 

P 

64 

PSPR0 

MOV 

PPOCOM.  AL 

|V>4  Q  uQOQQ') 

Iiww-t 

P 

65 

UTLP3 

MOV 

AL.STATl 

001C  O0E8 

66 

SHL 

AL.  1 

001E  7206 

67 

JB 

CHECK 

0020  D0E0 

68 

SHL 

AL,  1 

0022  72F5 

69 

Jt 

WTLP3 

0024  EBF0 

70 

JMP 

PSPR0 

0026  000300 

P 

7*. 

CHECK 

MOV 

«L,  RSBOTRE  3  3 

0028  2410 

72 

AND 

ALENDFR 

0026  74DF 

73 

JZ 

LAST 

74 

75 

,  HAVING  FOUND  THE  LAST  LINE  OF  THE  FRAME,  HE  HILL  TRANSFER  THE  RET1C0N 

76 

■DATA.  | 

LINE-BV-LINE  THE  THE  INTEL  86/12  BOARD  EACH  LINE  TRANSFERRED  STARTS 

77 

■  WITH  A 

"NEH  COMMAND  CYCLE"  AS  PER  PAGE  40  OF  REFERENCE  1  ' 

78 

0020  8264 

79 

MOV 

BL,  LINES 

;  WILL  DECREMENT  FROM  100  TO  ZERO 

002f  BE 0000 

R 

80 

MOV 

01,  OFFSET  DGROUP : SBCREG 

81 

002/  620F02 

P 

82 

NUCMCY 

MOV 

PROCOM,  AL 

. AGAIN,  PROCOM  IS  A  DUMMY 

0025  000002 

P 

83 

HTLP1 

MOV 

AL- ST ATI 

0038  D0E0 

84 

SHL 

AL,  1 

0670  7303 

85 

JNB 

HTLP 
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1  LOC  OBJ 

LINE 

SOURCE 

|  me  020602  9. 

86 

PSPR:  MOV 

PROCOM.  0L 

1  002F  060062  9 

87 

MTLP:  MOV 

0L> ST0T1 

f  6042  O0E0 

88 

SHL 

flL»l 

I  6644  726* 

89 

JB 

OTLP 

1  6646  P0E0 

96 

SHL 

RL..1 

I  0046  72F5 

91 

IB 

NTLP 

I  0040  EBF0 

92 

JMP 

PSPR 

1 

92 

I 

94 

NOW  TRANSFER  ft  SINGLE  LINE  OF  RETICCN  RSB  6020  D0T0  TO  THE  INTEL  86  BOARD 

I 

95 

I  aoat  d 

■  IIWWU  r 

96 

OTLP  MOV 

fiLRSBDTfi  ;  TRANSITIONS  IN  THE  LINE 

1  604F  22t4 

97 

XOR 

0H,fiH 

ft  0651  40 

98 

INC 

AX  ;  NUMBER  OF  WORDS  TO  XFER 

1  0052  O1E0 

99 

SHL 

AX.  1  ;X2  NUMBER  OF  BVTES  TO  XFER 

I  0054  88C8 

100 

MOV 

cx.  fix 

1  0056  PE0066  9 

101 

MOV 

SI, OFFSET  DGROLP : RSBDTft 

1  0059  F3 

162 

REP  MOVS 

BVTE  PTR  SBCREG  CDIl-  BYTE  PTR  RS6DTR  [SI] 

I  0050  04 

f  0056  FEie 

103 

DEC 

BL 

|  0050  7502 

104 

JNZ 

NUCMCV 

| 

105 

I  605F  a 

106 

RET 

1 

1 

107 

I 

1 

168 

RD.R0ST  ENDP 

I 

109 

I 

1  -  - 

110 

CODE  ENDS 

I 

1 

111 

I 

[ 

112 

END 

I 

0SSEMR.V  COMPLETE,  NO  ERRORS  FOUND 

L 

1 

r 

! 

U 

i 

■ 

► 

► 

: 

i 

/  I 

'  •* 

,  » 

1 

[ 

B-24  I 
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SERIES-ill  8886/8087/8888  MACRO  ASSEMBLER  VI.  0  ASSEMBLY  OF  MODULE  MATROX 
OBJECT  MODULE  PLACED  IN  :F2: MATROX.  OBJ 
INVOCATION  LINE  CONTROLS:  DEBUG 


LX  OBJ  LINE  SOURCE 

1  NAME  MATROX 

") 

3  CGROUF'  GROUP  CODE 

4 

5  DATA.GROUP  GROUP  OGROUP, DATR-SEG,  GAE.SEG 

6  ASSUME  CS.CGPGUP,  DS:DATA_GROUP 

7  PUBLIC  BACKGROUND,  MATROX.START.UP,  START_BIT,  X_Y,  DATA.READV,  ERROR 

8  PUBLIC  XCNT, VCNT, BADJ1ISS, FIRE-BIRD, TVRUSTER.FIRE 

9  EXTRN  SMOKE-SET  NEAR,  GAE.GT _FOV  NEAR,  GRAPH-VREP : NEAR 

10  EXTRN  GRAPH _GAE -POINT :  NEAR,  GRAPH. HREP' NEAR 

11  EXTRN  SMOKE-CHECK  NEAR 

12  EXTRN  GRAPH1  NEAR 

13  EXTRN  SNOKE_START_UP  NEAR 

14  EXTRN  Gf€-START_UP :  fCAR 

15  EXTRN  COUTNEAR 

16  EXTRN  C1N  NEAR 

17  EXTRN  HlT_E>PLOSION:NEAR,  GROUND-EXPLOSION  NEAR 

18  EXTRN  TANK.IN1T  NEAR, TANK-KILLED  NEAR 

19  EXTRN  USART-SET-UP-FOR-ADM : NEAR 

20  EXTRN  DELAY-3  NEAR  ;160NS  DELAY  FOR  CLEARING  RETRO-GRAPHICS  SCREEN 

21 

22  OGROUP  SEGMENT  PUBLIC  'DATA' 

23  OGROUP  ENDS 

24 

25  OATA-SEG  SEGMENT  PUBLIC 

26  EXTRN  H.REP.FIAG . BYTE, V.REP.FLAG : BYTE 

27  DATA.SEG  ETOS 

28 

29  GAE.SEG  SEGMENT  PUBLIC 

30  EXTRN  ELAPSED.TIME  MORD 


— 

31 

GAE.SEG 

ENDS 

32 

33 

0014 

34 

XREG  EQU 

14H 

8016 

35 

YREG  EQU 

16H 

0010 

36 

GSCALE  EQU 

10H 

0012 

37 

SCROLL  EQU 

12H 

0012 

38 

FLAGS  EQU 

12H 

0014 

39 

ERASE  EQU 

14H 

40 

— 

41 

DATR-SEG 

SEGMENT  PUBLIC 

42 

0000  <i 

43 

XCNT 

OB  1  DUP<?) 

) 

0001  (1 

44 

VCNT 

DB  1DUP(>) 

~n 

) 

8002  <1 

45 

XCNT.OLD 

DB  1  DUP<?) 

C-l 
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lOC  OBJ 

LINE 

SOURCE 

) 

8003  >1 

Y> 

46 

VCNT.0LO 

08 

1  DUP<?> 

0004  -i 

Y> 

47 

XCNT-SAVE 

oe 

1  DUP<?> 

') 

0005  a 

Y> 

48 

YCNT.SAVE 

ce 

1  WJP(?> 

) 

0006  (1 

V) 

49 

GSCALE-VAL 

08 

1  DUP<?> 

) 

0007  a 

?? 

50 

GSCALE.NUM 

OB 

1  DUP(?> 

) 

0006  '1 

51 

THRUSTER-FIRE 

D6 

1  DUP<?> 

> 

0009  (1 

iYn 

52 

SIZ 

DU 

1  DUP(?> 

0000  -1 

■^YjO 

53 

XMIN 

DU 

1  DUP(?) 

000T  '1 

54 

WIN 

DU 

1  DUP<?> 

» 

000F  1 

Y)Y, 

55 

XMAX 

DU 

1  D0P(?> 

\ 

00ii  a 

56 

VMAX 

DU 

1  DUPC>> 

i 

**12  ‘1 
■>?r> 

57 

XMAX.TMP 

DU 

1  DUP<’) 

0*15  (1 

v>r> 

58 

XMIN-THP 

DU 

1  DUP<?> 

) 

0017  a 

V/V' 

59 

T*>  _W> 

DU 

1  DUP(?> 

0019  a 

) '>'K> 

68 

ONE-THIRD 

DU 

1  DUP<?> 

) 

001B  -1 

YYYi 

61 

TMO-THIRDS 

DU 

1  WJP('>) 

00U>  a 

€2 

THREE 

D6 

1  DUP<’) 

.» 

00ic  a 

63 

COUNT-EM 

DB 

1  DUP<?) 

T) 
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LOl  00 J 

LINE 

SOURCE 

m  ■  t 

r> 

64 

BACKGROUND 

DB 

^020  <1 

77 

65 

GSCALE.SAVE 

DB 

> 

0021  (1 

77 

66 

COUNT 

DB 

') 

m2  '  i 

V 

6? 

BLINK. COUNT 

DB 

* 

0023  (1 

77 

68 

REPLAV 

DB 

) 

0024  <1 

77 

69 

ERROR 

DB 

) 

00?S  <1 

77 

78 

ERROR.HESG.FLAG  D6 

i 

0026  «i 

77 

71 

GRND.BIRD.fLAG 

DB 

00^  ‘i 

77 

72 

HIT.FLAG 

DB 

a 

77 

73 

DtST_FRO.TGT.FLAG  DB 

002S*  <i 

>7 

74 

RESULTS.FLAG 

DB 

> 

082ft  '1 

'•  7 

'5 

THRUSTERS.FLAG 

DB 

8826  <1 

7777 

76 

TWO 

DU 

0821*  (1 

7777 

77 

VAMLSCALED 

ON 

> 

002F  <1 

7777 

78 

ZANG.SCALED 

DU 

8831  ‘l 

7777 

79 

VANG2.0LD 

DU 

0033  <1 

/*  7  / 

80 

ZANG2.0LD 

DU 

t 

0835  U 

/I-)'/ 

81 

VANG2.SAVE 

DU 

IJV  '  'l 

82 

2ANG2.SAVE 

DU 

M/17/89  PAGE  2 

1  DUP<?> 

1  DUP<?> 

1  DUP<?> 

1  DUP<?> 

1  DUP(?) 

1  DOP<?> 

1  DUP<?> 

1  DUP<?> 

1  DUP(?) 

1  DUP(?> 

1  DOPC’> 

1  DUP(?> 

1  DUP<?) 

1  DUP<?> 

1  OOP<?> 

1  DUPO 

1  DUP<?> 

1  DUP<?> 

1  MJP<?> 
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■H. 


LOC  06 J 
>?•» 


LINE  SOURCE 


0039  <1 

83 

VANG2 

ON 

1  DUP<?> 

7777 

063B  *  i 

64 

2ANG2 

DM 

1  DUP<?> 

7777 

> 

W3D  <1 

85 

FLAG 

D8 

1  DUP(?) 

■>? 

ect  a 

77 

86 

POP-LEVEL 

06 

1  DUP<?> 

003F  a 

8? 

BORE.SIGHT 

DB 

1  DUP(?) 

0040  -1 

88 

ST APT-UP .BYTE 

DB 

1  OUP(?) 

■ 

89 

— 

90 

DATA.SEG 

EW)S 

91 

92 

— 

93 

XFER.SEG 

SEGMENT  AT 

0000  U 

94 

START-BIT 

OB 

1  DUP<?> 

0001  *1 

95 

X.V 

OW 

1  WJP<?> 

} 

000:  <i 

77 

% 

DATH-READV 

OB 

1  DUP<’) 

0004  Cl 

V? 

97 

BAO.NISS 

OB 

1  WJP<?) 

000‘S  '  1 

98 

OFFSET-X 

OB 

1  DUP(’> 

77 

» 

0000  '1 

99 

OFFSET. V 

DB 

1  DUP<?> 

77 

; 

0007  <9 

77 

106 

DUMMYS 

06 

9  OUP(?) 

‘i 

0610  a 

101 

YANG 

DM 

1  DUPC*) 

7777 

> 

0012  <1 

102 

ZANG 

OW 

1  DUP(?) 

7777 

J 

0014  <1 

103 

BiRO.OTA_ROY 

06 

1  OUP(?> 

C-4 
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LUC  OBJ 

LINE 

SOURCE 

w0i5  a 

184 

FIRE.BIRO 

06 

1  DUP<?> 

?? 

> 

001'  "'  '  1 

105 

BIRD-HIT 

OB 

1  DUP<?> 

0017  '1 

106 

BIRD_MISSES 

D6 

1  OUP(?) 

001*  '1 
->-> 

107 

H.REP.REQ 

06 

1  OUP(?) 

0019  a 

>■> 

108 

H.REP.GO 

DB 

1  OUP(?) 

> 

0010  a 

109 

V-REP.RE6 

06 

1  OUPC?) 

V 

i 

001B  a 

110 

V.REP-GO 

06 

1  DUPC?) 

->■> 

001C  <\ 

111 

GRND-BIRD 

OB 

1  DUP<?> 

r> 

> 

0010  -1 

112 

END.Gf-RPV 

DB 

1  DUPC?) 

•/? 

) 

001E  <1 

T) 

113 

HIT-SHORT 

DB 

1  OUPC?) 

001F  (1 

114 

OUMMY.ALSO 

DB 

1  DUPC?) 

77 

) 

0020  <16 

115 

H-MIS— BSCI I 

DB 

16  OUPC?) 

1 

W&  *16 

116 

VJ1IS-ASCII 

06 

16  OUPC?) 

*>7 

> 

0040  (16 

117 

OIS-FRO-TGT 

06 

16  OUPC?) 

n 

) 

0050  '24 

118 

ACTUAL-THRUST 

DB 

24  OUPC?) 

r> 

) 

006B  (24 

119 

IOERL.THRUST 

D6 

24  DUPC?) 

7? 

) 

f  _ 

120 

XFER.SEG 

ENOS 

121 

_ 

122 

STACK.SEG 

SEGMENT  STACK  'STACK 

f  '64 

123 

OH 

640  OUPC?) 

i 

«•  0080 

124 

STKTOP  LABEL 

WORD 

C-5 
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lOC  'iBJ 

LINE 

SOURCE 

— 

125 

STACK-SEG 

126 

— — 

127 

CODE  SEGMENT 

126 

0000  47524F554E4420 

129 

MESSAGE 

494050414754 

0000  ID 

000E 

130 

FIN-OF-MESSAGE 

131 

0U8E  40495351494045 

132 

MESSAGE2 

205O4F53495449 

4F4E2045564345 

45444544204752 

41564820424F55 

4E4453 

8«24  11' 

0035 

133 

F1N-OF.MESSAGE2 

134 

0035  54485255535445 

135 

MESSAGES 

52522A20 

0040  02 

136 

END  JjF -MESSAGES 

137 

0041  880006 

128 

DRIVER 

0044  8EC0 

129 

0046  68 - 

R 

140 

0049  8ED0 

141 

004B  mm 

R 

142 

me  me 

143 

0050  68— 

R 

144 

005:  m 

145 

005c,  26C606000060 

146 

0056  603E400001 

R 

147 

0068  740C 

148 

0062  26C606050000 

149 

0068  26*2606060000 

150 

006.E  0606400001 

R 

151 

NOT.START.UP 

007,  0606230000 

R 

152 

0076  070626000200 

R 

153 

007L  (686280000 

R 

154 

0082  C606260000 

R 

155 

0088  C606270008 

P 

156 

0080  0606290000 

R 

157 

009<  O6062F0000 

R 

158 

0097  0606248000 

R 

159 

0090  0606258000 

R 

160 

08A1  r  6  06.268000 

R 

161 

00Ao  ',b06270000 

R 

162 

0066  0606270000 

R 

163 

0060  E80000 

r 

164 

0063  E80000 

E 

165 

00B6  E80080 

E 

166 

0869  £800*0 

E 

167 

0060  £6(801 

168 

0066  PA0686 

169 

00C2  80 ID 

170 

ENOS 

PUBLIC  CODE' 

OB  'GROUND  IMPACTS  250 


LA8EL  WORD 

OB  'MISSILE  POSITION  EXCEEDED  GRAPH  BOUNDS',  350 


LABEL  WORD 

OB  'THRUSTERS:  ' 

OB  WORD 

MOV  AX,  XFER.SEG 

MOV  ES,AX 

MOV  AX, STACK.SEG 

MOV  SS,AX 

MOV  AX, OFFSET  STKTOP 

MOV  SP.AX 

MOV  AX,  DATR-GROUP 

MOV  DS,AX 

MOV  ES: START-BIT, 0 

CMP  START.UP.BVTE.1 

JE  NOT-START.UP 

MOV  ES:OF5ET_X,0 

MOV  ES : OFFSET _V, B 

MOV  STfKT.UP-BVTE,  i 

MOV  REPLAV-0 

MOV  TWO,  2 

MOV  DIST-FRO_TGT_FLAG,  0 

MOV  GtiNDJBIRD-FLAG,  0 

MOV  HIT-FLAG,  0 

MOV  RESULTS.FLAG,  0 

MOV  BORE-SIGHT,  0 

MOV  ERROR,0 

MOV  ERROR  J€SG_FIAG,0 

MOV  GRND-BIRD.FLAG,  0 

MOV  HIT-FLAG,  0 

MOV  DIST-FRO.TGT-FLAG, 0 

CALL  USART-SET.UP.FOR-AOM 

CALL  USART-SET-UP.FOR-ADM 

CALI  SMOKE-START-UP 

CALL  Gf€_S  rtRT_lJP  ,  INITIALIZES  THE  GAE  PROGRAM 

CALL  MATROX-START.UP  ,  CLEARS  MATROX  SCREEN 
MOV  OX.0D8H 

MOV  AL  350 


C-6 
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lut  oe; 

LINE 

SOURCE 

081.4  E  38088 

E 

171 

CALL 

CGUT 

►>  '  681? 

172 

MOV 

AL310 

*8C?  E80880 

E 

172 

CALL 

COUT 

v«CC  E 80*00 

E 

174 

CALL 

0ELAY.2  -DELAY  160MS 

88CF  eeet' 

175 

MOV 

AL,  150 

0801  E80000 

E 

176 

CALL 

COUT 

0004  6818 

177 

MOV 

AL  0300 

0806  £80088 

E 

178 

CALl 

COUT 

eeC'9  60ift 

179 

MOV 

AL,  320  = CLEAR  ADM-2  SCREEN 

8806  E 80808 

E 

180 

CALL 

COUT 

08DE  E88008 

E 

181 

CALL 

TANKJNIT  i  ALLOWS  INST  TO  SELECT  FROM  MENU 

00E1  688806 

182 

MOV 

AX,  XFER.SEG  ,  THIS  *  THE  NEXT  INST.  ARE  A  CLUGE 

183 

•  TO  GUARD  THE  ES  IF  NECESSARY??? 

88E4  6EC8 

184 

MOV 

ES,AX 

00E6  6016 

185 

MOV 

AL  320 

08E6  800888 

186 

MOV 

OX,  0D8H 

80EB  E88008 

E 

187 

CALL 

COUT  .  CLEAR  AOM-3  SCREEN 

00EE  E 88800 

E 

188 

CALL 

GRAPH!  -DRAWS  AND  CLEARS  ENVELOPES  ON  AOM-3  SCREEN 

00F1  26C 606000001 

189 

MOV 

ES : START-BIT,  1 

08F7  E86807 

190 

WAV  JJP -HERE : 

CALL 

CHECK-FOR.B  .BORESIGHT  CHECK 

00F0  80FC81 

191 

CMP 

(Hi 

88F0  7511 

192 

JNE 

DO-IT-OVER 

00FF  3C02 

192 

CMP 

AL  0002H  , CTRL-B  ?? 

0101  758C' 

194 

JNE 

DO-IT-OVER 

0103  Bflf'808 

195 

MOV 

DX-0D8H 

0106  B042 

1% 

MOV 

AL,  1020  ; OUTPUT  A  'B'  TO  AOM-3 

8106'  E 80800 

E 

197 

CALL 

COUT 

0106  C6062F8001 

R 

198 

MOV 

BORE-SIGHT.  1 

8118  26603E830001 

199 

DO. IT.OVER: 

CMP 

ES  OATR-REAOV,  1  ; DATA-READV??? 

8116  7526 

200 

JNE 

CHK_FOR_RPV 

0118  803E:F0801 

R 

201 

CMP 

BORE-SIGHT.  1 

8110  7506 

282 

J* 

BEVOND 

011F  E 84587 

203 

CALL 

CALIBRATE  , CALIBRATE  FROM  FIRST  DATA  POINTS 

0122  C6063F0800 

R 

204 

MOV 

BORE.SIGHT, « 

8127  26883E040001 

205 

BEVOND 

CMP 

ES : BAD-MISS,  1  ;  BAD-MISS?7? 

8120  7506 

206 

JNE 

DO.  IT 

812F  E80000 

E 

207 

CALL 

GAE_GT_FOV 

0132  E 94681 

208 

JMP 

0VER2  ;  DO  NOT  GET  NEW  DATA  IF  BAD-MISS 

0135  E9FF08 

209 

BO.IT 

JMP 

D0_ IT-LONG 

210 

8138  2 6803E 108001 

211 

CHK-FOR.RRV 

CMP 

ES  V.REP-REQ.  1 

*13E  7423 

212 

JE 

V-REP-SHORT 

8140  26803E 180081 

213 

CMP 

ESH.REP-REQ,  1 

0146  741E 

214 

JE 

H.REP.SHORT 

0146  2680<E1E0001 

215 

CMP 

ES : HIT-SHORT, 1 

014E  7436 

216 

JE 

DIST-FROM.TGT 

0150  26803E1D0061 

217 

CMP 

ES  END.OF.RPV, 1 

0156  744C 

218 

JE 

ERROR.MSG.CHK 

0158  26803E170001 

219 

CMP 

ES  BIRD-MISSES,  1 

015C  741C 

228 

.IE 

TEST1 

0160  E80798 

221 

JMP 

BACK 

0161  69fF00 

222 

V-REP-SHORT 

JMP 

V.REP 

016*  E48800 

222 

H-REP-SHOPT 

JMP 

H.REP 

224 

016c‘  26803E168001 

225 

BACK 

CMP 

ES  BIRD-HIT.  1 

C-7 


■Jciob  RtfSL  flfK  ftU  HSStN&LEft 

MATROX 

UK  %  J 

LINE 

SOURCE 

226 

IE 

AM  .68tKF.lC000i 

227 

CMP 

0177  74’ 

228 

JE 

017?  E97&F6 

229 

JNP 

230 

0’V  iStv:EiC0001 

231 

TESTl. 

CMP 

0182  7406 

232 

It 

0134  E8E3 

233 

IMP 

234 

0136  £8FEtU 

235 

DIST.FROM.TGT 

CALL 

018?  E 80060 

E 

236 

CALL 

OlSC  E 08704 

237 

JNP 

016F  E3F500 

238 

PRINT .RESULT 

CALL 

0182  ESO006 

E 

2:9 

CALL 

0185  E 96864 

240 

JNP 

0)98  E8EC00 

241 

PRNT.HIT 

CALL 

6l96  E86O00 

t 

242 

CALL 

019E  E8O066 

E 

242 

CALL 

01A1  E9S40S 

244 

IMP 

245 

Olfi4  oOSE 280001 

R 

246 

ERRCP.MSG.CHI 

CMP 

610°  7566 

247 

JNE 

61A6  26C606 1E0061 

248 

MOV 

0161  C'OS£266001 

ft 

249 

SKIP 

CMP 

0166  7566 

256 

JNE 

016-  26C6061C0601 

251 

NOV 

OIBE  867 E2 76661 

R 

252 

SKIP2 

CMP 

oiu  '506. 

252 

JNE 

OUT  1>".  :.0616OO01 

254 

MOV 

OLE  S0.'E/.'40001 

P 

255 

SKIP! 

CMP 

6100  '506 

256 

JNE 

OIL.  2-a 666170001 

5C" 
i.  .»■ 

MOV 

61D0  ■;O..tl406Ol 

K 

258 

SKIP4 

CMP 

OUT’  . 

25? 

IE 

OU’E  u::6O6iD0008 

260 

MOV 

01 E5  C 606000000 

E 

261 

MOV 

Olt-h  E927FF 

262 

JHP 

OltC'  E?ii*i6 

263 

ERROR-MESG-LONO 

JMP 

264 

01F0  E9C405 

265 

PPNT.GRND.BRD 

JNP 

266 

Oif  L  '‘.006230001 

P 

267 

H.REP 

MOV 

Oia  26  666180600 

268 

MOV 

*'UFE  £80080 

E 

269 

CALL 

0201  £90066 

E 

270 

CALL 

0204  E 88000 

271 

CALL 

0207  £ 666000661 

E 

2  72 

MOV 

026C  76Cb06 196001 

273 

MOV 

0212  E?FFF£ 

274 

JMP 

275 

0215  C6962200O1 

P 

276 

V.REP 

MOV 

02  1h  'h<  606100666 

277 

MOV 

0220  £80660 

E 

278 

CALl 

0/2"  E860OO 

E 

279 

CALL 

0226  E85E00 

280 

CALL 

04^17/09  PAGE  8 


PRNT.HIT 
ES  GRMDJBIRD,  1 
PRNT.GRND.BRO 
WftV_  UP-HERE 

ES  GRND.BIRD.i  .WRIT  FOR  END  OF  FLIGHT  BEFORE 

PRINT-RESULT  •PRINTING  MESSAGES 

BACK 

NflTROX.STfiRT.UP 

GROUND-EXPLOSION 

DIST.FRO.TGT 

NflTROX.STflRT.UP 

GROUND  EXPLOSION 

PRINT .RESULTS 

NftTROX.STfiRT.UP 

HIT.EXPLOSION 

TRNK.K1LLED 

PRINT-HIT 

DiST.FRO.TGT.FLAG, 1 
SKIP 

ES  HIT-SHORT, 1 
GRND-BIRD.FLAG, 1 
SKIP2 

ES  GRND.BIRD,  1 

HIT.aflG,i 

SKIPS 

ES  BIRDJIIT.l 
RESULTS  _FLfNj  •  1 
SKIP* 

ES  BIRD.MISSES. i 
ERPOP.l 

ERROP_.MESG.LONG 
ES  END.OF.RPV.0 
H.REP.FLAG,  0 
DO.IT.OVER 
ERROR.NESG 

PRINT.GRND.BIRD 

REPLAV.l 
ES  H.REP.REQ,0 
GRAPH.HREP 
GAE.STARTJJP 
NflTROX.START.UP 
H.REP.FLAG,  1 
ES  H.REP.GO,  1 
DO.IT.OVER 

REPLRV,  1 
ES  V_REP_REQ, 8 
GRAPH. VREP 
GflE.STflRT.UF' 

HflTROX.STflRT.UP  ,  THIS  NIGHT  BE  "MATROX.CANCELL* 


C-8 
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ux  Tip.: 

LINE 

SOURCE 

'220  T  r ,  u.HOyyOi 

t 

281 

NOV 

»322f  2wIp0EiB8C’01 

282 

NOV 

0, .  4  ESl'^FE 

283 

JHP 

284 

«2.>7  A80908 

9 

285 

DO. IT.LONG 

MOV 

82SA  A28286 

R 

286 

MOV 

0L.O  M80108 

R 

287 

MOV 

gfc40  A20300 

R 

288 

MOV 

824S  A13900 

R 

289 

MOV 

024E  A33106 

R 

290 

nov 

024S  rtlSEw 

P 

291 

MOV 

8240  433388 

R 

292 

HOV 

024F  26d£l60186 

297 

HOV 

02' 4  401601000 

P 

294 

HOV 

B75B  >3360180 

P 

295 

HOV 

0250  26A11088 

296 

MOV 

0268  A33900 

R 

297 

HOV 

826 2  26A11280 

298 

MOV 

0262  A33680 

R 

299 

HOV 

A;8A  ?6i".A068"0088 

308 

HOV 

301 

CMP 

0276  "483 

382 

JE 

02 7 J  E 80800 

E 

303 

CALL 

8- 76  t 84080 

304 

0VER2 

CALL 

027E  26C686848000 

305 

MOV 

0284  E989FE 

386 

JHP 

307 

8287  C60r07000? 

R 

388 

MATROX-START.UP 

MOV 

828C  A00780 

R 

389 

HOV 

828F  A20600 

R 

318 

HOV 

0292  070609000908 

R 

311 

MOV 

0298  C6063E000A 

R 

312 

MOV 

0290  C6861D0803 

R 

313 

MOV 

02A2  C6862O8000 

R 

314 

NOV 

02A7  C6061F0008 

9 

315 

MOV 

82AC  C686210000 

R 

316 

MOV 

0261  C6861E0008 

R 

317 

MOV 

02Ei6  800* 

318 

MOV 

02B8  E612 

319 

OUT 

02BA  A01F80 

R 

320 

MOV 

02BD  E618 

321 

OUT 

82BF  £414 

322 

IN 

0201  £412 

323 

HAITI 

IN 

020  3  2401 

324 

AND 

0205  74FA 

325 

JZ 

0707  Ci 

326 

RET 

327 

0208  E 95401 

328 

STILL.SHOKE.SHORT 

07CB  303E220001 

R 

329 

START 

CMP 

0208  7486 

730 

JE 

021-2  813E0888F008 

E 

331 

LHP 

8208  7603 

332 

JNA 

njZ’i-A  EB8490 

333 

IMF 

*700  E9C601 

S34 

FIN.OF-HA- 

m 

F*T  >100700 

l 

335 

TO 

NT-v 

94/17/09  Pflbt  9 


V.REP.FLAG, 1 
ES : V-REP.GO, 1 
DO.IT.OVER 

fibXCNT 
XCNT.OLD,  AL 
AL,  VCNT 
VCNT.OLD,  AL 
RX,  V(=tNG2 
VANG2-0LD,  fix 
RX.2ANG2 
2ANG2.0LD,  AX 

DX, ES - X_V  THIS  INST  GETS  XCNTR,  VCNTR  IN  ONE  GULP 

XCNLDL 

VCNT.DH 

AX. ES: VANG 

VANG2.  AX 

AX.ESZANG 

2ANG2,  AX 

ESDATA.READV,  8 

ES  BAD-MISS. 1 

0VER2 

GRAPH- GAE-POINT  ; PLOTS  DOTS  ON  AOM-3 
START  , PLOTS  ROCKET  AND  SMOKE  ON  MATROX 
ES  BAD-HISS.  0 
CO-IT-OVER 

GSCALE-NUH,  090 
AL.GSCALE-NUM 
GSCALE-VAL,  HL 
SIZ09D 
POP-LEVEL,  180 
THREE,  3D 
FLAG,  0 
BACKGROUND,  8 
COUNT, 8 
COUNT _EH. 8 
RL,  8 

SCROLL, AL 
AL  BACKGROUND 
GSCALE, AL 
AL,  ERASE 
AL, FLAGS 
AL,  1 
HAITI 


JHP  STILL-SMOKE 
REPLAV,  1 
FIN.OF.HAT 
ELAPSED.TIHE  248C' 
FIN. OF -HAT 
TO 

nv.OF.NftTRfo 

f.VAlE 
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LOC  OBJ 

LINE 

SOURCE 

02E2  A20608 

R 

336 

MOV 

GSCALE.VALAL 

02E6  E808^ 

E 

337 

CftLL 

SMOKE.CHECK 

02E9  80FC01 

338 

CMP 

Mil 

02EC  7500 

339 

JNE 

ST1LL_5M0KE_SH0RT 

02EE  Hi 7900 

R 

346 

MOV 

AX.  VANG2 

02F1  023500 

R 

241 

MOV 

YANG2-S0VE,  AX 

02F4  013800 

R 

342 

MOV 

AXZANG2 

02F7  A33700 

R 

343 

MOV 

ZANG2.SAVE,  RX 

02FA  A00600 

R 

344 

MOV 

AL. GSCALE.VAL 

02FO  022000 

R 

345 

MOV 

GSCALE_SAVE.  AL 

0300  C 606060000 

R 

346 

MOV 

GSCALE.VAL0 

347 

Q7QC; 

1 WBW 

P 

348 

MOV 

ALXCNT 

0708  A20400 

R 

349 

NOV 

XCNT_SAVE,AL 

0306  A08200 

R 

350 

MOV 

AL.  XCNT.OLD 

030E  A20000 

R 

351 

MOV 

XCNT.AL 

352 

0311  A00100 

R 

353 

MOV 

AL.VCNT 

0314  A20500 

R 

354 

MOV 

YCNT-SAVLAL 

0317  A00300 

R 

355 

NOV 

AL,  VCNT.OLD 

031A  A20100 

R 

356 

MOV 

VCNT, AL 

357 

03 ID  013800 

R 

358 

MOV 

AXZANG2 

0320  A33700 

P 

359 

MOV 

2AN62_SAVE,  AX 

0323  A13300 

R 

368 

MOV 

AX.ZANG2.0LD 

022c-  A33B00 

R 

361 

MOV 

2ANG2,  AX 

362 

0325  R13900 

R 

363 

MOV 

AX, VANG2 

0321  A33500 

P 

364 

MOV 

VANG2_5AVE, AX 

032F  A12100 

R 

365 

NOV 

AX VANG2-0LD 

0332  023900 

R 

366 

MOV 

VANG2,  AX 

367 

0235  E86F01 

368 

CALL 

OCT-DRAN 

0338  002000 

R 

369 

MOV 

AL GSCALE-SAVE 

033B  020600 

R 

370 

MOV 

GSCTLOAL,  AL 

371 

072E  A00400 

R 

372 

MOV 

ALXCNT  .SAVE  ;  THESE  «XT  4  INST.  RESTORE  XCNLVCNT 

0341  020000 

R 

373 

NOV 

XCNT.AL  , AFTER  AN  ERASE  CYCLE 

0344  000506 

R 

374 

NOV 

AL,  YCNT.SAVE 

0347  020100 

R 

375 

NO V 

VCNT, AL 

376 

0340  013500 

R 

377 

MOV 

AX VANG2.SAVE  .THESE  fCXT  4  INST  RESTORE  VANG2, 2ANG2 

024D  033900 

P 

278 

NOV 

VANG2,  AX  ;  AFTER  AN  ERASE  CVCLE. 

0350  013700 

R 

379 

MOV 

AX,  ZANG2.5AVE 

0353  023B00 

R 

380 

MOV 

ZANG2.AX 

0356  E80300 

381 

CALL 

S-P-AND.GSCALE.SET 

0259  E9BE00 

382 

TO? 

JNP 

*********** 

SIZ.IS.SET2 

035C  010000 

E 

384 

S_P_AND_GSCALE_SET : 

NOV  AXELAPSED.TINE 

035F  3DFA01 

285 

CMP 

,5060  ;  HAS  500 

0362  7513 

386 

JNE 

HAIT0  ;  START  THE  SIZ,  POP,  AND  GSCALE  SETTING  ROUTINE 

0364  C 70609008800 

R 

387 

NOV 

SIZ.80 

0360  C606070008 

R 

388 

NOV 

GSCALE.NUM,  80 

836F  C6063E0808 

R 

389 

MOV 

POP-LEVEL  080 

0274  E 90200 

390 

JNP 

SIZ-IS.SET 

i 
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LOC  06T  LINE  SOURCE 


j377  3DF403 

391 

HAIT0: 

CMP 

,  18120  ;  MAS  1600 

037A  7513 

392 

JNE 

NAIT2 

037C  C70689000700 

R 

393 

MOV 

SIZ,?D 

(382  C606070007 

R 

394 

MOV 

GSCALE-NUM,  70 

0387  C6063E0007 

R 

395 

MOV 

POP-LEVEL,? 

03»C  E98A00 

396 

JMP 

SIZ-IS.SET 

038F  3OEE05 

397 

HAIT2: 

CMP 

,15180  >  HAS  1500 

0392  7513 

398 

JNE 

UAIT3 

0394  C 70609000600 

R 

399 

MOV 

SIZ>6D 

0390  C 606070006 

R 

400 

MOV 

GSCALE-NUM,  60 

039F  C6663E0006 

R 

401 

MOV 

POP-LEVEL,  6 

03A4  EB7390 

482 

JMP 

SIZ.rS.SET 

03A7  3DO207 

403 

HAIT3; 

CMP 

,20020  ;MAS  2000 

03AA  7513 

404 

JNE 

HAIT4 

03AC  C70609000500 

R 

405 

MOV 

SIZ,5D 

03B2  C 606070805 

R 

406 

MOV 

GSCALE-NUM,  50 

03B7  C6063E0006 

P 

487 

MOV 

POP-LEVEL,  6 

03BC  EB5B90 

408 

JMP 

SIZ-IS.SET 

03BF  3DC60B 

489 

HAIT4: 

CMP 

,30140  ,  NAS  3080 

03C2  7513 

410 

JNE 

HAIT7 

03C4  C 70609000400 

R 

411 

MOV 

SIZ,  4D 

83Cfi  C606070003 

R 

412 

MOV 

GSCALE-NUM,  30 

03CF  C6063E0006 

R 

413 

MOV 

PGP-LEVEL  6 

0304  E84390 

414 

JMP 

SIZ-IS.SET 

0307  309813 

415 

MAIT7: 

Of5 

,56160 

03OA  7513 

416 

JNE 

MAIT5 

03OC  C70609000400 

R 

417 

MOV 

SIZ,  4 

83E2  C606870002 

R 

418 

MOV 

GSCALEjmS 

03E7  C6063E0004 

R 

419 

MOV 

POP-LEVEL,  4 

07EC  EB2690 

420 

JMP 

SIZ-IS-SET 

03EF  2D6A1B 

421 

WRITS: 

CMP 

,70180 

03F2  7510 

422 

JNE 

MAIT50 

03F4  C70609000400 

R 

423 

MOV 

SIZ,  40 

03FA  C6060 70801 

R 

424 

MOV 

GSCALE-NUM 

03FF  C6063E0004 

R 

425 

MOV 

PGP-LEVEL  4 

0404  303C2J 

426 

WRIT50 

CMP 

,90200 

0487  7510 

427 

JNE 

SIZ-IS.SET 

0409  C70609000400 

R 

428 

MOV 

SIZ,  40 

040F  C606070001 

R 

429 

NOV 

GSCALE-NUM,  1 

0414  C6063E8002 

R 

430 

NOV 

POP-LEVEL  2  >  THIS  ENDS  THE  SIZ  SETTING  ROUTINE. 

0419  C3 

431 

SIZ-IS.SET: 

RET 

All 

041A  C606210000 

P 

lit 

433 

SIZ.I5-SET2: 

MOV 

COUNT,  0 

434 

041F  E412 

435 

STIL1 _ SMOKE : 

IN 

AL FLAGS  ,CHECK  TO  SEE  IF  MATROX  IS  STILL  BUSY 

0421  3C01 

436 

CMP 

ALi  ,i=NOT  BUSY,  8=SUSV 

0423  740C 

437 

JE 

GO.ON2  /  JMP  IF  MATROX  IS  NOT  BUSY 

«425  26A00300 

438 

MOV 

ALES  DATA-REAOV  /MATROX  IS  BUSY=XHECX  FOR  DATA  READY 

0429  3081 

439 

CfP 

ALI 

042B  75F2 

440 

JNE 

STILL-SMOKE 

0420  C3 

441 

RET 

/  IF  DATA  IS  READY  HE  BAIL  OUT  AND  RET 

042E  E81B90 

442 

DRAN.OCT .SHORT: 

JMP 

ORAH-OCT 

0431  803E210008 

R 

443 

GO.ON2: 

CMP 

COUNT,0 

0436  74F6 

444 

JE 

ORAH-OCT-SHORT  /DRAM  NEM  OCTAGON 

0438  E821FF 

445 

CALL 

S-P-AND.GSCALE.SET  /  SETS  SIZ,  POP  DURING  SMOKE  GEN 

C-ll 
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LOG  06.1  LINE  SOURCE 


0438  E88080 

E 

446 

SIZ.IS.SET3: 

CALL 

04 <£  A01F00 

R 

447 

MOV 

0441  E610 

448 

OUT 

0443  E414 

449 

IN 

0445  C686210000 

R 

456 

MOV 

044A  C3 

451 

RET 

452 

0446  803E210008 

R 

453 

OfiAW-OCT; 

CMP 

0450  752F 

454 

JNE 

8452  803E080001 

R 

455 

CMP 

0457  7508 

456 

JNE 

0459  16861E8003 

R 

457 

MOV 

045E  EB8850 

458 

JMP 

0461  S03E1E0000 

R 

459 

CHK .COUNT _EH 

CMP 

0466  7419 

468 

JE 

0469  C606080006 

R 

461 

DO-IT-HERE: 

MOV 

0460  FE0E1E08 

R 

462 

DEC 

OkA  74 

tTri  I  rWDW 

R 

463 

MOV 

0474  02063E00 

P 

464 

ADD 

0478  3C0F 

465 

Ctf> 

047A  7662 

466 

JBE 

047C  B00F 

467 

MOV 

047E  A20600 

R 

468 

OK; 

MOV 

0481  A00608 

R 

469 

BY-PAS: 

MOV 

0484  38061F00 

R 

470 

CMP 

0488  7286 

471 

JB 

048A  C606210001 

R 

472 

MOV 

048F  C3 

473 

RET 

474 

0498  26H01400 

475 

THERE: 

MOV 

0494  2C01 

476 

CMP 

0496  75F8 

477 

JNE 

0498  26C606140000 

478 

MOV 

049E  E 80600 

479 

CALL 

04A1  C 606210001 

R 

480 

MOV 

04A6  C3 

481 

F I N-QF .MATROX: 

RET 

482 

483 

0407  833E390000 

R 

484 

OCT-DRAH: 

CMP 

04AC  7509 

485 

JNE 

^rtnC  L  f  wcl/www 

R 

486 

MOV 

0464  EB0C90 

487 

JMP 

0467  A13900 

R 

488 

NEXT: 

MOV 

0460  99 

489 

CND 

8468  F73E2B0O 

R 

490 

IOIV 

846F  A32D00 

R 

491 

MOV 

04Ci  8336360000 

R 

492 

NEXT1: 

CMP 

84C7  7509 

493 

JNE 

84C9  17062F000800 

R 

494 

MOV 

04CF  EB8C90 

495 

J*> 

0402  A13B00 

R 

4% 

NEXT2: 

MOV 

0405  99 

497 

CHD 

0406  F73E2880 

R 

498 

IOIV 

04OA  A32F00 

R 

499 

MOV 

0400  A10900 

R 

500 

NEXT3: 

MOV 

SMOKE_SET 
AL, BACKGROUND 
GSCAL£,AL 

AL, ERASE  ;ERASE  SCREEN 
COUNT,  0 


COUNT,  8  ;f*E  ME  DRAWING  OR  ERASING?  C01M=8=DRAN. 

BY.PAS 

THRUSTER-FIRE, 1  ,  AND  IS  THERE  A  THRUSTER  FIRE?? 

CHK-COUNT.EM 

COUNT _EM,  3 

DO.IT.HERE 

COUNT  .EM,  0 

BY.PAS 

THRUSTER-FIRE, 0  ;ZERO  THIS  FLAG  AS  NE  HAVE  SEEN  IT 

COUNT.EM 

ALGSCALE.VAL 

AL  POP-LEVEL  ;  IF  THERE  IS  THEN  INC  GSCALE-VAL  BY  P.L 
AL, 150  , HOWEVER, GSCALE-VAL  CANNOT  BE  GREATER  THAN  150 
OK 

AL,  150  ;  IF  GREATER  THAN  15  Tf€N  LONER  TO  15 

GSCALE-VAL  AL 

AL, GSCALE-VAL 

BACKGROUND,  AL 

T*R£ 

COUNT,  1 

;N0  NEED  TO  DRAM  OCTAGON  IF  SMOKE  HILL  HIDE  IT 

AL,  ES : BIRO_DTR_RDV 

AL,1 

THERE 

ES:BIRD_DTA_RDY,0 
OCT-DRAH 
COUNT,  1 


VANG2, 0 
NEXT 

VANG-SCALED, 8 
NEXT1 
AX,  VANG2 

TWO 

YANG-SCALED,  AX 
ZANG2, 0 
NEXT2 

ZANG-SCALEO,  8 

NEXT3 

AX,  ZANG2 

THO 

ZANG-SCALEO,  AX 

AX, SIZ  ; THIS  STARTS  THE  OCTAGON  DRAM  ROUTINE! ! ! 
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IOC  OBJ 


<M£0 
04E2 
84E5 
WES 
84EC 
04F8 
04F2 
84F4 
04f8 
04FC 
04FF 
8501 
0504 
0507 
8509 
050C 
050F 
0513 
0516 
0518 
051ft 
051C 
051E 
8522 
8525 
0527 
0529 
8528 
052F 
0532 
8535 
0537 
853ft 
853E 
0541 
0544 
0548 
8548 
0550 
8552 
8557 
0559 
0550 
855F 
0562 
0563 
8567 
856':1 
856E 
8571 
0574 
0577 
057ft 
0570 
'  057E 


DIES 

B87F80 

03162000 

697F80 

830E2F90 

2800 

2BC6 

89160888 

890E0D00 

810900 

83C2 

R38F00 

ftl0908 

83C1 

831100 

810900 

F6361O00 

80FC01 

7602 

FEC0 

8fl08 

32E4 

03060000 
831900 
88C3 
O0E0 
32E4 

03060000 
A31B00 
811900 
28C1 
831700 
03060B08 
831508 
810F06 
2B061700 
831300 
883E3O0001 
7400 

333E090005 
7586 
41 

C6063D0001 
E86600 
41 

380E1900 
7EC9 

0606300000 
810600 
831508 
810F06 
831300 
£84800 
41 

380E1B00 


R 

R 

R 

R 

R 

R 

R 

R 


R 

R 


LINE  SOURCE 


501 

502 

503 

504 

505 
566 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 


R 

R 

R 

R 

R 

R 

R 

R 

R 

R 


R 

R 

P 

P 

R 


QO.ON. 


525 

NOV 

526 

SHL 

527 

XOR 

528 

ROD 

529 

NOV 

530  FIRST-THIRD: 

NOV 

531 

SUB 

532 

NOV 

533 

800 

534 

NOV 

535 

NOV 

536 

SUB 

537 

MOV 

538 

CNP 

539 

JE 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 


OVER.THIS: 


SECOND-THIRD 


0VER1: 


Stf  flX.1 

NOV  OX.  1270  ;  THIS  HRS  XCNT 

8D0  OX.  V8NG-SC8LED 

NOV  CX.  1270  i  THIS  HRS  VCNT 

8D0  CX,  2flNG_5CflLE0 

SUB  OX.RX 

SUB  CX.RX 

NOV  XMIN.OX 

NOV  VMIN.CX 

MOV  RX.SI2 

flOO  RX.OX 

MOV  XHRX.8X 

MOV  RX.SI2 

800  RX.CX 

MOV  VMRX.RX 

MOV  RX.SI2 

OIV  THREE 

CMP  fl»fcl 

JBE  GO-ON 

INC  RL 

NOV  BL.RL 

XOR  8K.RH 

9D0  RX.VNIN 

NOV  ONE-THIRD,  RX 

RLBL 
RL.1 
RH.RH 
RX.VMIN 
THO_ THIRDS.  RX 
RX,  ONE-THIRD 
RX.CX 
TNP-HRD,  8X 
RX,»tW 

XHIN-TNP,  RX  ;  SETS  XMN 
RX.XNRX 
8K,  TNP-HRD 

XNRX.TMP,flX  ;SHS  XNRX 
FLflG.l 
OVER-THIS 
SI2.5 

JNE  OVER-THIS 

INC  CX 

NOV  FlfiG.l 

CRLL  LINE 

INC  CX 

CNP  CX,  ONE-THIRO 

JLE  FIRST-THIRD 

NOV  FLRO.0 

NW  RX.XRIN 

NOV  XHIN-THP.RX 

NOV  RX.WX 

NOV  XMRX-TNP.RX 

CRLL  LINE 

INC  CX 

CNP  CX, TH0.TH1RDS 
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LOC  08J 

0582  7EF6 
0584  A11B00 

8587  8809 
8589  2808 

8588  88G 
0580  A31700 
0590  02060680 
0594  821500 
0597  A10F00 
059A  2B861700 
059E  021208 


LIME  SOURCE 


05C8  86161500 
05CC  82F900 
85CF  7E20 

8501  81F9FF00 
0505  701A 
0507  86FF00 
05OA  2809 
05OC  81FAFF00 
«5E0  7008 
05E2  82FA00 
8rE5  7E02 
85E7  E80680 
05EA  42 
85EB  2B161300 


R 

R 

R 

R 

R 

P 


556 

557 

558 

559 

560 

561 

562 
562 

564 

565 

566 


85fii  802E2O0001 

R 

567 

05A6  7410 

568 

05A8  823E090004 

R 

569 

05AD  7589 

570 

05AF  FF0E1100 

R 

571 

0562  C/06200001 

R 

572 

05B8  E80I-00 

572 

0566  41 

574 

056C  26061100 

R 

575 

0*S8  7EC2 

576 

05C2  C6063D0000 

R 

577 

05C7  C« 

578 

579 

LAST-THIRD 


0VER-THIS.2: 


580 

581 

582 
58? 

584 

585 

586 

587 
568 
589 
598 

591 

592 
592 

594 

595 

596 

597 

598 

599 
668 
681 
602 
602 

604 

605 

606 

607 

608 
609 
€10 


JLE 

MOV 

MOV 

SUB 

MW 

MOV 

ADO 

MOV 

MOV 

SUB 

MOV 

CMP 

JE 

CMP 

JNE 

DEC 

MW 

CALL 

INC 

CMP 

JLE 

MW 

RET 


0VER1 

AX,  TWO-THIRDS 
BX,CX 
BX.AX 
flX/BX 

TMP-HRD,AX 
AX,XHIN 
XH1N-TMP,  AX 
AX,  XMAX 
AX,TMPJ*D 
XMAX-TMP,  AX 
FLAG,  1 
OVER.TH3S.2 
SIZ,  4 

0VER.TH1S-2 

VMAX 

FLA6,i 

LlfC 

CX 

OCVMAX 
LAST-THIRD 
a  AG,  8 


,  THE  ROUTINE  OOT  HILL  NOT  BE  USED  FOR  A  WILE 


;  COT 


LlfC 


cm 


NO-HAS': 


MOV 

CMP 

JE 

SUB 

JMP 

MOV 

MOV 

MOV 

CALL 

MOV 

OUT 

IN 

HLT 


MOV 

CMP 

JLE 

CMP 

3GE 

MW 

SUB 

CMP 

JGE 

CMP 

JLE 

CALL 

INC 

CMP 


AL,SIZ 
AL,2 
OOT 
SIZ,  20 
START 
DL,ES:X 
CL'E5:V 
XMRX-Tie,  DL 
OVER 

AL, BACKGROUND 
GSCALE,  AL 
a,  ERASE 


OX,  XMIN-TMP 
CX,  00 
DUN 

CX,  2550 
DUN 

8X,  2550 
BX,CX 
OX,  2550 
HO-HAV 
OX,  00 
NO-WAV 
OUTPUT 
DX 

OX,  XMAX-TMP 


C-14 


1 

c 
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LGC  OBJ 

LINE 

SOURCE 

m  7EEB 

611 

JLE 

05F!  C3 

612 

DUN 

RET 

613 

SAC  2 

614 

OUTPUT 

MOV 

0r-f4  E614 

615 

OUT 

85F6  8AC3 

616 

MOV 

85F8  E616 

617 

OUT 

85FA  A0060A 

R 

618 

MOV 

05FD  Ed1 

619 

OUT 

«5FF  c: 

620 

RET 

621 

0000  26C 686170000 

622 

PRINT, RE SULTS 

MOV 

0606  C606290001 

R 

623 

MOV 

A60B  BAD800 

624 

NOV 

060E  6010 

625 

NOV 

0610  E80000 

E 

626 

CALL 

6613  B037 

627 

NOV 

0615  E80000 

E 

628 

CALL 

0618  6078 

629 

NOV 

061A  E80000 

E 

638 

CALL 

661D  B028 

631 

MON 

861F  E80000 

E 

632 

CALL 

0622  6040 

633 

NOV 

8624  E80000 

E 

634 

CALL 

0627  B01F 

635 

NO V 

0629  E 80000 

E 

636 

CALL 

062C  B92000 

637 

MOV 

062F  BE 2000 

638 

NOV 

0632  268H04 

639 

AGAIN 

NOV 

0t>?5  E  80000 

E 

640 

CALL 

A63o  E81502 

641 

CALL 

06.38  46 

642 

INC 

063C  E2F4 

643 

LOOP 

A63F  BkJlO 

644 

MOV 

0640  £80000 

E 

645 

CALL 

0643  E9CAFA 

646 

JNP 

€47 

0646  26C6061E0000 

648 

DIST.FRO.TGT : 

MOV 

064C  C 606280001 

R 

649 

NOV 

0651  BAO000 

650 

NOV 

0654  601D 

651 

MOV 

065F  E 80000 

E 

652 

CALL 

0659  B037 

653 

MOV 

■VCf 

wJD  tlWW 

E 

654 

CALL 

865E  6078 

655 

HON 

0660  E86000 

E 

656 

CALL 

0663  B028 

657 

NOV 

0665  E80w» 

E 

658 

CALL 

0668  8040 

659 

NOV 

0668  E80000 

E 

660 

CALL 

066D  601F 

661 

NOV 

06t>F  E 80008 

E 

662 

CALL 

0672  691*08 

663 

NOV 

0675  BE4000 

664 

NOV 

0678  268A04 

665 

AGN: 

MOV 
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OVER 


AL,DL 

XREG,  AL 

AL,BL 

VREdAL 

AL,GSCALE_VAL 

GSCALE,AL 


ES: BIRD-MISSES,  0 

RESULTS.FLAdi 

DX.0D8H 

AL035O  i  VECTOR  MODE 

COUT 

AL067O 

COUT 

AL170O 

COUT 

AL050O 

COUT 

AL, 10BO 

COUT 

AL,0270  :■  ALPHA  MODE 

COUT 

CX,32D 

SI,  OFFSET  H_MIS-RSC11 

AL,ES:CSI3 

COUT 

SHORT_DELAV 

SI 

AGAIN 
ALi 0350 
COUT 

DO-IT.OVER 

ES:HIT.SHORT,0 
DIST _FRO.TGT.FLAG/ 1 
D&0O0H 

AL-0350  ; VECTOR  NODE 

COUT 

AL/0670 

COUT 

AL-1700 

COUT 

AL/0500 

COUT 

AL  1000 

COUT 

AL  0370  ;  ALPHA  MOOE 

COUT 

CX.16D 

51,  OFFSET  DIS.FRO.TGT 
ALES  ISI1 
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LOG  OBJ 

LINE 

SOURCE 

0678  E8008O 

E 

666 

CALL 

067E  ESfF01 

667 

CALL 

0681  46 

666 

INC 

0662  E2F4 

669 

LOOP 

0684  801D 

670 

MOV 

0686  E80008 

E 

671 

CALL 

0689  E984FA 

672 

JMP 

672 

«68C  6AD880 

674 

THRUSTERS-MSG 

MOV 

068F  B01D 

675 

MOV 

0691  £86000 

E 

676 

CALL 

0694  8020 

677 

MOV 

0696  E800A0 

E 

678 

CALL 

0699  B060 

679 

MOV 

0698  E80000 

E 

688 

CALL 

869E  8820 

681 

MOV 

■von  C&HUia 

WTO  CwOOT 

E 

682 

CALL 

06AS  8040 

683 

MOV 

06H5  E80086 

£ 

684 

CALL 

06A8  B01F 

685 

MOV 

06AA  E80000 

E 

686 

CALL 

06AD  690800 

687 

MOV 

0680  BES500 

R 

688 

MOV 

0665  2E8A04 

689 

(OK?: 

MOV 

OULCtC  POADM 
wW  C.OWW 

E 

690 

CALL 

0689  E 89401 

691 

CALL 

068C  46 

692 

INC 

0680  E2F4 

693 

LOOP 

066F  B 90200 

694 

MOV 

0642  BE 6800 

695 

MOV 

06C5  268A04 

6% 

IT-RGA1N: 

MOV 

06C8  E80000 

E 

697 

CALL 

06C6  E88201 

698 

CALL 

06CE  46 

699 

INC 

06CF  E2F4 

700 

LOOP 

0601  8049 

781 

MOV 

6605  E 80000 

E 

702 

CALL 

0-06  802F 

703 

MOV 

0608  E80000 

E 

704 

CALL 

06D6  B90200 

705 

MOV 

06OE  BE5500 

706 

MOV 

06E1  268A04 

707 

IT.AGAIN2: 

MOV 

06E4  E6*000 

E 

708 

CALL 

06E7  E66601 

709 

CALL 

06Eh  4k 

716 

INC 

06E6  E2F4 

711 

LOOP 

66ED  6041 

712 

MOV 

06EF  E 80006 

E 

713 

CALL 

06F2  601D 

714 

MOV 

0cF4  E 6000A 

E 

715 

CALL 

06F7  C? 

716 

RET 

717 

718 

06F8  E891FF 

719 

PRINT-HIT 

CALL 

06FB  C6062 20002 

R 

720 

MOV 
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GOUT 

SHORT-DELAV 

SI 

AON 

01,350 

COUT 

DO. IT-OVER 

DX,  8D8H 

Al,035O 

COUT 

AL480 

COUT 

AL140O 

COUT 

AL,  400 

COUT 

AL,100Q 

COUT 

AL37G 

COUT 

CX, (OFFSET  END_0F_HESSflGE3  -  OFFSET  MESSAGES) 

SL  OFFSET  MESSAGES 

ALCS.tSIJ 

COUT 

SHORT.DELAV 

SI 

AGN7 

CX,2 

SI, OFFSET  (IDEAL-THRUST  +3) 

ALESISII 

COUT 

SHORT-DELAV 

SI 

IT.AGAIN 
AL,  1110 
COUT 
AL,570 
COUT 
CX/  2 

SI, OFFSET  (ACTUAL.THRUST+3) 

ALES.TS1J 

COUT 

SHORT-DELAV 

SI 

IT.AGAIN2 
PL,  1010 
COUT 
AL350 
COUT 


THRUSTERS-MSG 
BLINK-COUNT,  03D 

C-16 
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<* 

* 


LOC  OBJ 

LINE 

SOURCE 

3700  C686278061 

ft 

721 

MOV 

KIT.FLAG,  1 

0785  26C686160000 

722 

MOV 

ES:BIRD_HIT,0 

8708  8AO880 

723 

PftINT.HIT.AGN: 

MOV 

DX,908H 

878E  801D 

724 

MOV 

AL,  0350  i  VECTOR  MODE 

0710  E 80008 

E 

725 

CALL 

COUT 

0713  8037 

726 

MOV 

AL,  0670 

0715  E80000 

E 

727 

CALL 

COUT 

0718  B078 

728 

MOV 

AL.170O 

871 A  E80008 

E 

729 

CALL 

COUT 

07 ID  B02E 

730 

MOV 

AL,  0560 

071F  E 88000 

E 

731 

CALL 

COUT 

0722  B042 

732 

MOV 

AL102O 

8724  E 88080 

E 

733 

CALL 

COUT 

8727  B01F 

734 

MOV 

AL037O  ;  ALPHA  MODE 

8728  £80800 

E 

725 

CALL 

COUT 

872C  8048 

736 

NOV 

AL,  1100  ;H 

872E  E80008 

E 

737 

CALL 

COUT 

0731  8049 

738 

MOV 

AL, 1110  ;  I 

0732  E80060 

E 

739 

CALL 

COUT 

0736  6854 

740 

MOV 

AL,  1240  ;T 

0738  E 80800 

E 

741 

CALL 

COUT 

073B  6021 

742 

MOV 

AL,  0410  ,! 

073D  E80000 

E 

743 

CALL 

COUT 

0748  E'OlD 

744 

MOV 

AL,035O 

0742  E80000 

E 

745 

CALL 

COUT 

0745  E8FE00 

746 

CALL 

DELAY 

0748  B01D 

747 

MOV 

AL,  0350 

074A  E80060 

E 

748 

CALL 

COUT 

074D  26803E1A0001 

749 

CMP 

ES:V_REP_REQ,1  •  RRE  "HE ‘NEEDED  ANYWHERE?’ 

0753  7464 

756 

JE 

DOW 

8755  26803E180001 

751 

CMP 

£S:H_REP-R£Q,i  ARE  “HE"  NEEDED  ANYHHERE?? 

075E  745C 

752 

JE 

DOW 

6756  FE0E2200 

ft 

753 

DEC 

BLINK-COUNT 

0761  803E220000 

ft 

754 

CMP 

BLINK-COUNT,  9 

0766  7451 

755 

JE 

DOWN 

0768  B01B 

756 

MOV 

AL,  0330  ; 

076A  E80000 

E 

757 

CALL 

COUT  ; 

076D  B07F 

758 

MOV 

AL1770  ;  THESE  FOUR  INSTRUCTIONS  CHANGE  THE 

076F  E80000 

E 

759 

CALL 

COUT  ;  DATA  LEVEL  TO  BLACK! 

0772  8027 

760 

MOV 

AL670 

0774  E80000 

E 

761 

CALL 

COUT 

0777  807$ 

762 

MOV 

AL170O 

0779  E80000 

E 

763 

CALL 

COUT 

077C  602E 

764 

MOV 

AL,  560 

077E  E80000 

E 

765 

CALL 

COUT 

0761  6642 

766 

MOV 

AL.102O 

0783  E80000 

E 

767 

CALL 

COUT 

0786  B01F 

768 

MOV 

AL,  370 

0788  E80006 

E 

769 

CALL 

COUT  ; ALPHA  MODE 

0788  6048 

778 

MOV 

AL, 1100  ,"BLACK  'H'* 

0780  E 80000 

E 

771 

CALL 

COUT 

0790  8049 

772 

MOV 

AL1110  ;  "BLACK  'V 

0792  E 80000 

E 

7?' 

CALL 

COUT 

0795  80154 

774 

MOV 

AL, 1240  i  "BLACK  'T'" 

079?  E800<w 

E 

775 

CALL 

COUT 

C-17 


em/mrz&m  macro  assembler  matrox 


i  oc  ob) 

LINE 

SOURCE 

079ft  8021 

776 

MOV 

879C  £80080 

E 

777 

CALL 

079F  6021 

778 

MOV 

67A1  E80000 

E 

779 

CALL 

0/64  8816 

780 

MOV 

07A6  £80060 

E 

78. 

CALL 

07A9  6861 

782 

MOV 

07AB  £86000 

E 

783 

CALL 

07h£  B01D 

784 

MOV 

8760  E  80060 

E 

785 

CALL 

0762  E89A00 

786 

CALL 

*'B6  E952FF 

737 

JMP 

0789  E954F? 

788 

DOWN: 

IMP 

?89 

0?BC  ESCr«FE 

7% 

°RINT-GftNO_BIRD 

.  CALL 

076F  26C6661C0800 

791 

MOV 

97C5  C606260001 

R 

792 

NOV 

07CA  6AD800 

793 

MOV 

0?CO  601D 

794 

NOV 

07CF  E 88000 

E 

795 

CALL 

6702  6037 

796 

MOV 

0704  £80000 

E 

797 

CALL 

67 07  6061 

798 

MOV 

0709  E80000 

E 

799 

CALL 

07OC  602E 

800 

MOV 

07[,e  £80080 

E 

801 

CALL 

07E1  6042 

882 

MOV 

£80000 

E 

883 

CALL 

07£6  601F 

e04 

MOV 

87E8  £80800 

£ 

805 

CALL 

07EB  690E00 

806 

MOV 

0/EE  6E0080 

ft 

807 

MOV 

07F1  2E8A04 

808 

REPEAT 

MOV 

07F4  E80800 

E 

809 

CALL 

07F7  E85680 

810 

CALL 

07FA  46 

811 

INC 

87FB  E2F4 

812 

LOOP 

07FD  E910F? 

813 

JMP 

814 

0800  C606248006 

R 

815 

ERROR  JtSG: 

MOV 

8805  C686250001 

R 

816 

MOV 

080ft  26C6061D0000 

81? 

MOV 

0810  600800 

818 

MOV 

0812  B81D 

819 

MOV 

8815  E80000 

E 

828 

CALL 

0818  6020 

821 

MOV 

08 IA  E86000 

e 

822 

CALL 

0810  6060 

823 

MOV 

0«1F  E00000 

E 

824 

CALL 

0822  682E 

825 

NOV 

0824  E  60080 

E 

826 

CALL 

0827  6841 

827 

MOV 

8829  E60000 

E 

828 

CALL 

082C  601F 

829 

MOV 

082E  £88000 

E 

838 

CALL 
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AL,  410  j  "BLACK  M'n 

COUT 

AL410 

COUT 

AL, 330  ;  THESE  NEXT  FOUR  INSTRUCTIONS  SET 
COUT 

AL,  1410  ; THE  DATA  LEVEL  BACK  TO  WHITE 
COUT 

ft,  350  ;  RETURN  TO  VECTOR  NODE 
COUT 

SHOPTJ'E.SY 
PRINT _«IT _flGH 
MLITJJVER 

THRUSTERS.MSG 

ES:GRND_8IRD,  6 

<*ND_BIRD-FLA6,i 

DX,  0O8H 

AL035O 

COUT 

AL067O 

COUT 

PL,  1410 

COUT 

ft,  0560 

COUT 

ft,  1020 

COUT 

ft.  8370  .ALPHA  NODE 
COUT 

CX,  (OFFSET  FlhLOFJtSSAGE  -  OFFSET  MESSAGE) 

SI, OFFSET  MESSAGE 

ft-C5:[SI3 

COUT 

SHORT-DELAY 

SI 

REPEAT 

OO.IT.OVER 

ERROR,  8 

ERROR-HESG-FLAG,  1 

ES;EW>.OF_ftPV,0 

OX.0O8H 

ft,  350 

COUT 

ft,  460 

COUT 

ft,  1400 

COUT 

AL,  560 

COUT 

AL101O 

COUT 

AL, 370  i  ALPHA  MODE 
COUT 
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lot  oej 

0821  B92700 

0874  BE0E00  P 

0637  2E8A04 

0636  E88600  E 

0830  E81000 

0840  46 

8841  E2F4 

0843  E9CAF8 

0846  8850L3 

0649  48 
8848  200000 
0840  75Fh 
884F  C3 
0850  681027 
8852  48 
0854  300000 
8857  75FA 
8859  C3 

o85ft  8406 
085C  E40E 
085E  248/ 

0860  7404 
0862  E40C 
0864  6401 
0866  f - 


0667  2688160100 
086C  B864 
086E  2802 
0678  2680060 500 
0875  B064 
8877  2AC6 
0879  2600060600 
o37E  03 


line  source 


821 

832 

833 

834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 


845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 
855 

859 

860 
861 
862 

863 

864 

865 

866 

867 

868 
869 
878 


REPT2. 


MOV  CX,  (OFFSET  FIN.0F_MESSAGE2  -  OFFSET  f€SSAGE2> 
MOV  SI. OFFSET  MESSAGE2 

MOV  flbCS:tSI] 

CALL  COUT 

CALL  SHORT .DELftV 

INC  SI 

LOOP  REPT2 

JMP  OO.IT.OVER 


DELAY  HOV 

AGAIN-N-AGfilN:  DEC 

CMP 
JNE 
RET 

SHORT  JtLftV:  HOV 

AGNJLAGN:  DEC 

CMP 
JNE 
RET 


CHECKLFORJB:  MW 


IN 

AND 

J2 

IN 

MOV 

GO-BACK: 

RET 

CALIBRATE: 

MW 

MOV 

SUB 

ADO 

MW 

SUB 

ADO 

RET 

RX, 500800 

ftX 

AX-0 

AGAIN-N-AGRIN 

AX-  108000 
AX 

AX-  0 

fWLOGN 


AH- 8 

AL-0OEH 

AL-2 

GO-BACK 

RL-0DCH 

mi 


; USART -STATUS 


DX-ES:X_V 
AL-64H 
AL  OL 

ESOFFSET.X.  AL 

AL.64H 

ALi  OH 

ES:OFFSET_Y-AL 


CODE  ENDS 

END  CS  DRIVER.  DS  DATA.GROUP-  SS : STACK.SEG 


ASSEMBLY  COMPLETE-  NO  ERRORS  FOUND 
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SERIES- III  3B8S/8087/8038  MACRO  ASSEMBLER  VI.  0  ASSEMBLY  OF  MODULE  SH0KEY_Tf€.6APE 
OBJECT  MODULE  PLACED  IN  :F2:  SMOKE.  OBJ 
INVOCATION  LINE  CONTROLS  DEBUG 


LOi  "B.i 


LINE  SOURCE 


1  NAME  SMOKEV.THE.BARE 

2 

3  DATA.GRQUP  GROUP  DAT.SEG,  DATA.SEG 

4  CGROUP  GROUP  CODE 

5 

6  ASSUME  CS  CGROUP,  DS . DATA.GROUP 

7 

8  PUBLIC  SMOKE-CHECK,  SMOKE-SET,  SMOKE.START.UP 

9 


— 

10 

DATA.SEG  SEGMENT  PUBLIC 

n 

EXTRN  BACKGROUND:  BYTE 

— 

12 

DATA.SEG  ENDS 

12 

— 

14 

DAT.SEG  SEGMENT  PUBLIC 

8000  a 

15 

DONE  D6  1  DUP<’ 

0001  (1 

16 

SERIES.N0 

DB 

1  DUPP) 

_ _  _ 

17 

DAT.SEG  ENDS 

18 

— 

19 

CODE 

SEGMENT  PUBLIC  'CODE 

0000  i.eoemm 

P 

28 

SMOKE.START.UP : 

MOV 

DONE, 6 

0005  C 606010001 

R 

21 

MOV 

SERIES.NO,  1 

0000  C2 

22 

RET 

23 

rwir.ri  cjCa~, 

Wwu  OwwtvWWW 

R 

24 

SMOKE.CHECK. 

CMP 

DONE, 0 

0610  7405 

25 

JE 

GO.BACK 

0612  B401 

26 

MOV 

AH,  1 

0014  E6028U 

27 

JMP 

G0.BACK2 

0617  8406 

28 

GO-BACK: 

MOV 

AH,  0 

0019  C7 

29 

G0.BACK2: 

RET 

20 

0010  863E000000 

R 

31 

5M0KE.SET : 

CMP 

DONE,  0 

001F  7463 

32 

JE 

START 

0021  B401 

33 

MOV 

AH,  1 

0023  i.l 

34 

RET 

35 

36 

0M24  662E010001 

R 

37 

START: 

CMP 

SERIES.NO,  1 

002.-  41F 

38 

JE 

SERIES.1 

0026  863E010002 

R 

39 

CMP 

SERIES-NO, 2 

0020  42H 

46 

JE 

SERIES.2 

0032  802E01000] 

R 

41 

CMP 

SRIES.NO,  3 

0037  7435 

42 

JE 

SERIES.3 

0029  883E010004 

R 

43 

CMP 

SERIES.NO,  4 

00 2E  7440 

44 

JE 

SER1ES.4 

0046  803E010005 

R 

45 

CMP 

SERIES.NO,  5 

0045  ’446 

46 

JE 

SEPIES.5 

020 


i 
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LO*.  OBJ 

LINE 

SOURCE 

6647  EB5690 

47 

48 

804A  FE66000B 

E 

49 

SERIES-1 

mi  8KE0BW0F 

E 

56 

0053  7401 

51 

0055  C3 

52 

DGNE1 

0056  i 606010004 

P 

53 

005B  C3 

54 

55 

005*1  Ft0E000».' 

E 

56 

SERIE5_2 

0060  C03E000006 

E 

57 

O065  7401 

58 

0067  C3 

59 

B0NE2 

0068  C606010003 

P 

60 

0060  C3 

61 

62 

006E  FE060000 

E 

63 

SERIES-3 

0072  803E00000F 

E 

64 

0077  7401 

65 

0079  C3 

66 

007A  CO06010004 

R 

67 

D0NE3 

007F  C3 

68 

69 

0080  FF0E0000 

£ 

70 

SERIES-4 

0084  703E000004 

E 

71 

0089  7401 

72 

0086  C3 

73 

D0NE4: 

008C  C6060 10005 

R 

74 

0091  C3 

75 

76 

0092  FE060000 

E 

77 

SERIES-5 

0096  S03E000008 

E 

78 

609B  7401 

79 

0090  C3 

80 

OONE5 

009E  '1606010006 

R 

81 

8063  '.3 

82 

83 

0W4  FE0E0000 

E 

84 

SERIES-6 

0008  80 3t 000000 

E 

85 

00AO  7401 

86 

00AF  C3 

87 

0060  C606008001 

R 

88 

FINISHED 

00B5  C7 

89 

90 

_ 

91 

CODE 

92 

ASSEMBl *  COMPLETE.  NO  ERRORS  FOUND 


‘  l 
•4 
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IMP 

5ER1ES.6 

INC 

BACKGROUND 

CMP 

BACKGROUND, 15D 

JE 

REF 

D0NE1 

MOV 

RET 

SERIES-NO,  2 

DEC 

BACKGROUND 

CMP 

BACKGROUND,  80 

JE 

RET 

D0NE2 

MOV 

RET 

SERIES-NO, 3 

INC 

BACKGROUND 

CMP 

BACKGROUND,  15D 

JE 

RET 

D0NE3 

MOV 

RET 

SERIES-NO,  4 

DEC 

BACKGROUND 

CMP 

BACKGROUND,  4 

JE 

RET 

D0NE4 

MOV 

RET 

SERIES.NO,  5 

INC 

BACKGROUND 

CMP 

BACKGROUND,  8D 

JE 

RET 

DQNE5 

MOV 

RET 

SERIES-NO,  6 

DEC 

BACKGROUND 

CMP 

BACKGROUND,  0 

JE 

RET 

FINISHED 

MOV 

RET 

ENDS 

END 

DONE,  1 

C-21 


•.<86/8087/8088  MACRO  ASSEMBLER  PETER-RABBIT 


04/17/09  P«GE  1 


CRIES-Ui  0036/0087/80:3*  MACRO  ASSEMBLER  VI  0  ASSEMBLY  OF  MODULE  FETER.RABBIT 
•  •EJECT  MOMLt  PLACED  IN  F2  GAE  OB’ 

INVOCATION  LINE  CONTROLS  DEBUG 


l'K  OB. i 


SOURCE 

NAME  PETER-RABBIT 

DATAjjROUP  GROUP  GAE.SEG,  DATA.SEG-  XFER.SEG 

C6R0UP  GROUP  CODE 

EXTRN  GRAPH!  NEAR.  FIRE-BIRD  BYTE 

PUBL IC  GRAPH.GAE-POINT.  GAE-START.UP.  GAE.GT.FOV.  H.REP -FLAG.  V.REP.FLAG 
PUBLIC  ELAPSED.TIME 
EXTRN  COUT  NEAP 

ASSLIME  CS  CGROUP- DS  DATA.GROUP 

XFEP-SEG  SEGMENT  AT  0600H 

EXTRN  BAD -MISS  BYTE,  START -BIT  BYTE ■ DATA.READY  BYTE 

XFER.5EG  END'S 

DATA-5EG  SEGMENT  PUBLIC 

EXTRN  VCNT  BYTE.  XCNT  BYTE.  THRIJSTER_FIRE  BYTE.  ERROR  BYTE 
DATA.SEG  END'S 

GAE.SEG  SEGMENT  PUBLIC 


2: 

BIT.BUCLET 

DB 

1  Dt.P*1' 

*. . . 

:•) 

ELAPSED.TIME 

DM 

1  DUP>  '■ ' 

> 

Otter  ■ ! 

2S 

FIFTEEN 

ON 

1  DUF'< 

W<AS  ■  1 

'■-> 

FOUR 

DW 

1  DUP'V' 

i 

•'00: 

M00C  i  l 

ti 

28 

V-SC ALE-FACTOR 
H-X.GRAPH1C-P0INT 

E0U 

DM 

03D 

i  DLIP  * 0 ' 

l  . 

2S 

H.Y. GRAPHIC -POINT 

DW 

i  DUPC’T 

H00B  1  1 

20 

HGAE-OFFSET 

DW 

1  BUPv’T 

HMMO  1  ! 

21 

FIFTY 

DW 

1  DUPO'1 

I#  'l 

22 

H. REP -FLAG 

DB 

1  DUPv’T 

0-22 


i 
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8086/8087/8088  MACRO  ASSEMBLER  PETER.RABBIT 


LOT  06' 

LINE 

SOURCE 

010  '1 

32 

V.REP.FLAG 

DB 

1  OUP(?> 

011  a 

34 

BIG-MISS 

0B 

1  DUP(?) 

> 

m2  a 

35 

THRUSTER-FIRED 

DB 

1  DUPC?) 

■ 

36 

— 

37 

GAE.SEG  ENDS 

28 

— 

39 

CODE  SEGMENT  PUBLIC 

'CODE'" 

40 

R 

41 

GAE-STARTJJP:  MOV 

BIT-BUCKET, 0 

0005  C 6061 10000 

R 

42 

MOV 

BIG_MISS' 0 

•wen  utwiwww 

R 

43 

MOV 

ELAPSED.TIME,  0 

0010  C70602000F00 

R 

44 

MOV 

FIFTEEN,  150 

0016  C70605006400 

R 

45 

MOV 

FOUR, 40 

001 C  170600003200 

R 

46 

MOV 

FIFTY, 580 

0022  C7060B000502 

R 

47 

MOV 

HGAE -OFFSET, 7250 

0028  C606120000 

P 

48 

MOV 

THRUSTER-FIRED, 0 

0020  C6060F0000 

R 

4? 

MOV 

H_REP-FLAG,0 

00i£  '.606100000 

R 

50 

MOV 

V-REP-FLAG,  0 

0037  £7 

51 

RET 

52 

003?  60088* 

53 

GAE_GT_F0V  MOV 

OX.0O8H 

£*}?D  yr/ i'„T-hV¥,Am 

E 

54 

MOV 

ESDATA-REAOV.0 

0041  B01D 

55 

MOV 

AL.035O  , VECTOR  MODE 

0043  E 80000 

E 

56 

CALL 

COUT 

0046  E  80900 

57 

CALL 

CONTINUE 

0049  C3 

58 

RET 

59 

0040  800880 

60 

GRAPH.GAE.P0INT 

MOV 

DX.0O8H 

0040  B01C 

61 

MOV 

AL034O 

A04F  E80000 

E 

62 

CALL 

COUT 

8052  33C0 

63 

CONTINUE: 

XOR 

AX,  AX 

8054  803E000001 

R 

64 

CMP 

BIT-BUCKET,  1  ,  IF  SET  THEN  IC'RE  ON  PASS  TWO 

0059  7400 

65 

JE 

NORMAL  ;I  E  ,LEFT  SIDE  OF  SCREEN 

005B  903E100001 

R 

66 

CMP 

V-REP.FLAG,  1 

0068  7506 

67 

JNE 

ynoMOi 

IWOTI. 

0062  C7060B004O0? 

R 

68 

MOV 

HGAE-OFFSET,  8450 

0068  881E0B80 

R 

69 

NORMAL 

MOV 

6X, HGAE.OFFSET 

006C  81FBO502 

70 

CMP 

BX, 7250 

0070  7412 

71 

JZ 

XI 

0072  81FB4O03 

72 

CMP 

BX,  8450 

0076  740C 

73 

J2 

XI 

ao 70 

OTI  0  1  WWJ 

E 

74 

MOV 

AL,  YCNT 

007B  B3C8 

75 

MOV 

BL,  200D 

0070  2006 

76 

SUB 

BL,  AL 

007F  80C: 

77 

MOV 

AL,  BL 

0081  EB0490 

78 

JMP 

ONWARD 

woH  IIWWV 

E 

79 

XI: 

MOV 

ALXCNT 

0087  8400 

88 

ONHARD: 

MOV 

AH,0 

0089  F7268300 

R 

81 

MUL 

FIFTEEN 

C-23 


8686/8087/8008  MRCRO  ASSEMBLER  PETER-RRB8IT  04/17/09  PAGE  3 


LOC  OBJ 

LINE 

SOURCE 

0880  F7't0500 

P 

82 

DIV 

FOUR 

0tf?l  83FA02 

83 

CMP 

OX,  020 

mi  ?c0i 

84 

JL 

GO.ON 

00%  40 

85 

INC 

FIX 

•3097  8B1E0B00 

R 

86 

GO-ON: 

MOV 

BX.HG6E-0FFSET 

00%  697701 

87 

MOV 

CX,  3750 

009E  31FBO502 

88 

CMP 

BX,  7250 

0002  7413 

89 

JZ 

X2 

00R4  81FB4D03 

90 

CMP 

BX,845D 

0008  7400 

91 

JZ 

X2 

00%  8A1E0000 

E 

92 

MOV 

BL,  VCNT 

80AE  B2C8 

93 

MOV 

OL,200O 

00B0  2RD< 

94 

SUB 

OL,BL 

0082  8 AW 

95 

MOV 

BL,  OL 

0064  EB8590 

96 

JMP 

0NH6R01 

0067  8R1E0000 

E 

97 

X2 

MOV 

BL.XCNT 

0066  80FB64 

98 

ONWflRDl 

CMP 

BL,  1000 

006E  7314 

99 

JNB 

SUBT 

00C0  26C8 

100 

60: 

SUB 

CX,6X 

00C2  88C1 

101 

MOV 

6X,CX. 

00C4  8B1E0B00 

R 

102 

MOV 

BX,  HG6E-0FF  SET 

00C8  03060600 

R 

103 

600 

RX, HG6E-0FFSET 

00CC  3DF203 

104 

CMP 

6X, 10100 

00CF  7F15 

105 

JG 

0NMRR03 

0001  EB0D90 

106 

JMP 

G0.0N5 

0004  26C1 

107 

5U67 

SIB 

RX,CX 

0006  861E0600 

P 

108 

MOV 

BX,  HOPE-OFFSET 

0006  2608 

105 

SUB 

BX,RX 

00OC  7E11 

110 

JIE 

0NMRRD2 

00OE  88C3 

111 

MOV 

RX,BX 

00E0  630700 

R 

112 

G0.0N5 

NOV 

H_X_GRflPHIC_POINT,  RX 

00E3  EB1090 

113 

JHP 

OVER-THERE 

00E6  C7060700F203 

R 

114 

0NWARD3: 

MOV 

H-X-GRRPHIC-POINT,  10100 

00EC  EB0790 

115 

JMP 

OVER-THERE 

00EF  C70607000000 

R 

116 

QNMRR02 

MOV 

H-X-GRRPHIC-POINT,  0 

00F5  E82B01 

117 

OVER-THERE 

C6LL 

TIME 

00F8  B80300 

118 

MOV 

BX,  V-SCRLE.FRCTOR 

60FB  F7E3 

119 

HUL 

BX 

00FD  056806 

120 

600 

RX, 30000 

0100  F  7360000 

R 

121 

DIV 

FIFTY 

0104  83FA19 

122 

CMP 

DX,  250 

0107  7C01 

123 

JL 

G0.0N4 

0109  40 

124 

INC 

RX 

125 

0106  300683 

126 

GO.ON4: 

CMP 

RX,  7790  ;  IS  TIME  GOING  TO  EXCEED  THE  TOP  OF 

0100  7E03 

127 

JNG 

GO. ONE  ; THE  RDM-2  SCREEN??  IF  YES  THEN  REDUCE 

010F  660603 

128 

MOV 

RX,  7790  ,THE  MRGNITUOE  TO  7790 

129 

0112  030900 

R 

130 

G0.QN6 

MOV 

H-Y-GRflPHIC-POINT,  RX 

0115  B0D880 

131 

MOV 

DX,0O8H 

132 

; THIS  ROUTINE  OUTPUTS  HIGH  V, 

LON  V,  HUGH  X  AND  LON  X  FOR  HORIZONTAL 

133 

i  RIM  ERROR  TO  6WG 

6118  26803E000601 

E 

134 

CMP 

ES : BRD-HISS,  1  ,BRO_MISS??? 

0UE  7505 

135 

JNE 

BV.PRSS  ; IF  VES  THEN 

0120  6010 

136 

MOV 

RL,  0350  ;  GO  TO  VECTOR  WOE 

C-24 
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LOC  OBJ 

LINE 

SOURCE 

4122  E30W08 

£ 

137 

CALL 

COUT  .ELSE,  STAY  IN  POINT  MODE 

138 

0125  A10900 

R 

139 

8V.PASS: 

MOV 

AX,K-V_GRAPNIC_POINT 

0128  B105 

140 

MOV 

CL,  5 

012ft  OILS 

141 

SHR 

AX,  Cl 

012C  241F 

142 

AND 

AL  000111116 

012E  0C20 

143 

OR 

A|  ttfti  flrtflftflft 

rt/  TO.OWWW 

0120  E80000 

E 

144 

CALL 

COUT 

01:3  A10900 

P 

145 

MOV 

AX.H_YJ3RfiPHIC.POIN7 

0136  24 IF 

146 

AND 

AL,0801ililB 

0128  0C60 

147 

OR 

AL,  011606606 

0130  E80000 

E 

148' 

CALL 

COUT 

»12D  010700 

P 

149 

MOV 

AX,  HJLGRAPHIC-POINT 

0140  B105 

150 

MOV 

CL5 

0142  P3E8 

151 

Qjp 

mft  W\ 

ax,  a 

0144  241F 

152 

fit) 

AL  000111116 

0146  0C20 

153 

OR 

Ql  flfti  QQflQQft 

1V7 

0148  E80000 

E 

154 

CALL 

COUT 

0146  010700 

R 

155 

MOV 

AX, H-X-GRAPHIC-POINT 

014E  241F 

156 

AND 

AL,  600111116 

0150  0640 

157 

OR 

d  2VJ  IWVWW 

r\j  oiuwuwu 

0152  E80000 

E 

158 

CALL 

COUT 

8155  26803E000001 

E 

159 

CMP 

ES: BAD.MISS,  1 

0156  751E 

160 

JtC 

BV.PASS2 

0150  601F 

161 

MOV 

AL,037O  ,  ALPHA  MODE 

015f  E80000 

E 

162 

CALL 

COUT 

0162  803E120G01 

R 

163 

CMP 

THRUSTER-FIRED, 1 

0167  7508 

164 

JtC 

AST 

0169  605F 

165 

MOV 

AL,  1370  ;  OUTPUT  A  WHEN  A  THRUSTER  FIRES 

0166  E80600 

E 

166 

CALL 

COUT 

816E  E60B90 

167 

JMP 

BV.PASS2 

0171  B02A 

168 

AST 

MOV 

AL,  0520  ;  OUTPUT  ASTERISK 

0173  E80008 

E 

169 

CALL 

COUT 

0176  6010 

170 

MOV 

AL,035O 

8178  E80000 

E 

171 

CALL 

COUT 

0178  803E000061 

R 

172 

BV.PASS2 

CMP 

BIT-BUCKET,  1 

0180  743A 

173 

JE 

AGAIN2 

0182  832E010016 

P 

174 

sue 

EIAPSED.TIME, 220  ,  USED  TO  BE  20 

0187  C606800001 

R 

175 

MOV 

BIT-BUCKET,  1 

018C  803E0F0001 

R 

176 

CMP 

H-REP-FIAG. 1  ;  IF  REP  TON  A  DIFFERENT  OFFSET 

0191  7409 

177 

JE 

ABNORMAL  FROM  REGULAR  IS  USED 

0193  C7060600C300 

R 

178 

MOV 

HGAE.OFFSET, 1950  , CHANGE  THE  OFFSETS  TO  GET 

8199  EB0790 

179 

JMP 

ACROSS  ;  READY  TO  DO  THE  VERTICALGAE 

019C  C7060B00EF00 

R 

180 

ABNORMAL: 

MOV 

HGAE.0FFSET.239D 

0182  803E0000C8 

E 

181 

ACROSS' 

CMP 

VCNT,  200D 

0187  7210 

182 

JB 

AROUND 

►J189  26C606000001 

E 

183 

MOV 

ES : BAD-MISS.  1 

8i8F  C 606000001 

E 

184 

MOV 

ERROR,  1 

8164  0606000008 

E 

185 

MOV 

VCNT  200D 

416.-  E996FE 

186 

AROUND: 

JMP 

CONTINUE 

0160  0606 000060 

R 

18? 

AGAIN2 

MOV 

BIT-BUCKET, 0 

0101  803E120061 

P 

188 

CMP 

THRUSTER-FIRED,  1 

0106  7464 

189 

JE 

HERE 

0108  26803E000001 

E 

190 

CMP 

ES  FIRE_BIRD,  1 

010  E  7550 

191 

JNE 

HERE 

C-25 
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LOC  OBJ 

LINE 

SOURCE 

eiE-e  C806120081 

R 

192 

MOV 

THRUSTER-FIRED,  1 

0105  C 606800001 

E 

193 

MOV 

THRUSTER_FIRE,  1 

01DA  C 666110001 

R 

194 

MOV 

BIG-MISS,  1 

01DF  26C 606000001 

E 

195 

MOV 

ES: BAD.MISS,  1 

01E5  C 686000001 

R 

196 

MOV 

BIT-BUCKET,  1 

01EA  E83600 

197 

CALL 

TIME 

81ED  832E010016 

R 

198 

sue 

ELAPSED.TIME,  22D 

01F2  201600 

199 

sue 

AX,  220 

61F5  BB0300 

200 

MOV 

BX,  V.SCALE-FACTOR 

01F8  E7E3 

201 

MUL 

BX 

01FA  05B88B 

202 

ADO 

AX,  30000 

01FD  F7360D00 

R 

203 

DIV 

FIFTV 

0201  83F619 

204 

CMP 

DX,25D 

8204  7C01 

205 

JL 

GO.ON.ARND 

0266  40 

206. 

INC 

AX 

0207  300803 

207 

GO-ON.ARND : 

CMP 

AX,  7790 

020A  7603 

208 

JNA 

G0_QN_ARH>2 

020C  880B03 

209 

MOV 

AX, 7790 

020F  030900 

R 

218 

GO -0N.ARND2 

MOV 

H_V_ GW4PHIC-P0IMT,  AX 

0212  C 70687000000 

R 

211 

MOV 

H_X_GRAPHIC_POINT,  0 

0216  BAB800 

212 

MOV 

DX/0D8H 

821B  8010 

213 

MOV 

AL,350 

0210  E80008 

E 

214 

CALL 

COUT 

8220  E962FF 

215 

JMP 

BV-PASS 

216 

217 

0223  8386010016 

R 

218 

TIME 

ADD 

ELAPSED.TIME,  22D 

0228  A10100 

R 

219 

MOV 

AX, ELAPSED.TIME 

0228  C3 

220 

RET 

221 

022C  BAO800 

222 

HERE: 

MOV 

DX,  0D8H 

022F  B61C 

223 

MOV 

AL,  0340  ; CHANGE  RGB  TO  POINT  MODE 

0231  E80000 

E 

224 

cm 

COUT 

02T4  670608000502 

R 

225 

MOV 

HGAE_0FFSET,?25D 

226 

023A  303E110001 

R 

227 

CMP 

BIG-MISS, 1 

02IF  7516 

228 

JNE 

LEAVE 

0241  26C 606000000 

E 

229 

MOV 

ES:  BAD-MISS,  0 

0247  C606000000 

P 

230 

MOV 

BITJBUCKET,  8 

024C  26C606000000 

E 

231 

MOV 

ES: FIRE-BIRD, 0 

0252  C606110000 

R 

232 

MOV 

BIG-MISS,  0 

025?  C606120000 

P 

233 

LEAVE: 

MOV 

THRUSTER-FIRED, 0 

025C  C3 

234 

RET 

235 

236 

— 

237 

CODE 

ENDS 

238 

239 

END 

ASSEM6LV  COMPLETE,  NO  ERRORS  FOUND 
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SEPIES-II [  *066/8087/8088  MACRO  ASSEMBLER  VI.  0  ASSEMBLY  OF  MODULE  MARLVNJ10NR0E 
OBJECT  MODULE  PLACED  IN  F2: RETRO.  OBJ 
INVOCATION  LINE  CONTROLS.  DEBUG 


LOC  OBJ  LINE  SOURCE 

1  NAME  MARLVN.MONROE 

2  PUBLIC  GRAPHi,  COUT,  CIN,  GRAPH.VREP,  GRAPH.HREP. USART.SET_UP.FOR.ADM 

2  PUBLIC  DELAV.3 

4 

5  CGROUP  GROUP  CODE 

€ 

7  ASSUME  CS: CGROUP 

q 

9  CODE  SEGMENT  PUBLIC  7 CODE' 

10 

0006  11  TIMER.CNTRL  EQU  0O6H 

0004  12  TIMER.CNTRL2  EQU  0D4H 

00B6  12  CNTR2.M0DE  EQU  0B6H 

0004  14  LOH.ADM  EQU  04H 

0000  15  H1GH.ADM  EQU  00H 

00DA  16  USART.CNTRL  EQU  0DAH 

0040  17  USAP.TJRESET  EQU  40H 

004E  18  USAPT.MODE  EQU  4EH 

0037  19  USART.CMMND  EQU  37H 

00OE  20  USART.STATUS  EQU  0DEH 

21 

00^  22  DELAV.VAL  EQU  75H 

22 
24 

0000  ID  25  PICP0INT5  OB  1DH-  21H,  7CH,  2FH, 54H. 23H,  6CH. 2FH, 54H. 440- 1440. 0650. 1270 

0001  21 
0002  7C 
0007  2F 
0004  54 
0005  22 
0006  6C 
0007  2F 
0008  54 
0009  24 
000A  64 
000B  25 
060C  57 

0000  26  26  PICP0INTS1  DB  0660, 1570. 0660. 1120, 0660, 1570, 0660, 1260. 440. 1440-  0670. 1220. 4? 

0,1540,0750,1260, 410 

000E  6F 
000F  26 
0010  4A 
0011  26 
0012  6F 
0013  36 
0014  5E 
0015  24 
0016  64 
0017  27 
0018  53 
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lGC  OBJ 


LINE  SOURCE 


wl-*  23 
•»1A  6C 
6616  30 
861C  56 
mil'  2i 
801F  ?C 

9016  3D 
0020  56 
0021  21 
0022  ?C 
002?  2F 
0024  54 
0025  ID 
0026  21 
0027  7C 
0028  36 
0029  55 
002fl  36 
0026  6F 
002C  36 
0020  55 

002E  1C 
002F  34 
0030  74 
0031  36 
0032  53 
0033  32 
0034  78 
0035  36 
0036  53 
0037  30 
0038  7C 
0039  36 
0030  53 
0036  2F 
003C  60 
003D  36 
003E  53 
003F  2D 
0048  64 
0041  36 
8042  53 
004?  26 
0044  68 

0045  36 
0046  53 
004?  29 
0048  6f 
0049  ?6 
004h  53 
0046  27 
004C  70 


27  PICPOINTS2  06  1740,0750,1260.410.1740,570.1240,0350,410.1740,0660.1250,0660 

,1570,0660 


PICP0INTS3  06  1250,340,640,1640,660,1230,620.1700,660,1230.600,1740,660,123 

0, 570, 1400, 660, 1230, 550, 1440, 660, 1230, 530 


PICP0INTS4  06  1500,660,1230,510,1540,660.1230,470,1600,660.1230.450.1640,66 

0, 1230, 430. 1700, 660, 1230, 640, 1640, 660 


C-28 


mbcro  assembler  marlvnjmnroe 


64/17/89  P8G6  3 


} 


lot  iJB; 

004l»  .  0 
804E  S3 
0046  25 
0656  74 
6651  36 
6052  53 
0653  23 
6054  73 
0055  36 
0056  53 
6057  34 
0058  74 
0659  36 
0058  57 
005B  32 
005C  78 
605D  36 
005E  57 

0656  36 

6066  7 r 
0661  36 
0062  57 

6067  2F 
0664  60 
6065  36 
0866  57 

6067  2D 

6068  64 
0069  36 
0068  57 
0066  28 
006C  68 
006D  36 
006E  57 
0066  29 
0070  6C 
0071  36 
0072  57 
0073  27 
0074  70 
0075  36 
0076  57 
0077  25 

0078  74 
0079  36 
0078  57 
007B  23 
007C  78 
0071.  36 
087E  57 
00T  ID 
0080  26 
0081  74 


LINE  SOURCE 


36  PICP0INTS5  D6  1270,620,1700,660 


31  PICP0INTS6  D6  1270,600,1740,660,1270,570,1480,660,1270,550,1440,660,1270,53 
0, 1500, 660, 1270, 510 


32  PICP0INTS7  DB  1540,660,1270,470,1600,660,1270 


33  PICP0INTS8  DB  450, 1640, 660. 1270, 430. 1700, 660. 1270, 350, 570, 1640, 560, 1140, 370 
,1240 


C-29 


8086/8087/M88  MfiCRO  ASSEMBLER  NRRLYNJWNROE 


04/17/09  PAGE  4 


LOT 

OBJ 

0082 

2E 

0083 

4C 

0084 

IF 

0085 

54 

Woo 

10 

0087 

2E 

0088 

76 

0089 

2E 

0080 

4C 

008B 

IF 

0B8C 

49 

0080 

10 

008E 

20 

008F 

78 

wlw 

2E 

WtI 

4C 

0092 

IF 

0093 

40 

0094 

10 

0095 

2C 

0096 

7ft 

0097 

2E 

QAAQ 

WTO 

4C 

8099 

IF 

AAM 

w/M 

45 

WW 

10 

noor 

wA 

2ft 

0090 

7E 

009E 

2E 

009F 

4C 

ocuct 

WWW 

IF 

0001 

53 

0002 

10 

0003 

20 

WWrt 

60 

0005 

2E 

WWW 

4C 

0007 

IF 

0008 

45 

0009 

10 

wWin 

29 

ivwn 

w® 

62 

iVWV 

ran. 

2E 

0000 

4C 

000E 

IF 

000F 

43 

0080 

10 

0061 

31 

0062 

7F 

0063 

2E 

MR4 

vwn 

52 

0865 

33 

OwO 

64 

LINE  SOURCE 


34  PICPOINTS9  OB  350,560,1660,560,1140,370.1110,350.550,1700.560,1140,370-1150 


35  PKv'OINTSlO  OB  350,540,1720,560.1140.370.1050,350,520,1760,560,1140,370,1230 
*0.520,1*00.560, 1140 


PICPOINTSU  OB  370, 1050, 350, 510. 1420. 560. 1140. 370- 1030. 350, 610, 1770, 560, 1220 
,630,1440,560,1220 


C-30 


zm/mT/sm  macro  assembler  narlvn_monrge 


04/17709  PAGF  5 


LOC  obj 

WE:,’  2E 

9068  52 
0669  22 
0660  76 
0068  2E 
00BC  58 
0660  10 
606E  22 
00BF  76 
80C0  2E 
00C1  4C 
00C2  23 
00C3  64 
00C4  2E 
06C5  52 
06C6  ID 

00C7  24 
00C8  i'b 
00C9  2F 
00CA  54 
00CB  IF 
00CC  28 
06CD  4C 
00CE  45 
00CF  46 
0000  54 
0001  29 
0002  10 
0603  24 
0004  76 
0005  39 
0006  59 
0607  IF 
0008  28 
0609  52 
0000  49 
0006  47 
00OC  48 
0000  54 
00DE  29 
00OF  1C 

00E0  21 
00E1  79 
00E2  2F 
00E3  54 
00E4  21 
00E5  76 
00E6  2F 
08E7  54 
00E8  21 
06E9  79 
00E6  20 
08E6  43 


SOURCE 


PICP0INTS12  06 


620. 1660, 560, 1200, 350. 620. 1660. 560, 1140. 620, 1440. 560. 1220 


PICP0INTS12  06 
•  1660,710.1210 


350, 440, 1660, 570, 1240, 370. 500. 1140. 1050, 1060, 1240, 510, 350, 440 


PICP0INTS14  D6 


370, 500- 1220, 1110, 1070, 1100, 1240, 510 


PICP0INTS15  06 
■  1660,600,1620 


240, 410, 1710, 570, 1240, 410, 1660, 570, 1240. 410- 1710  -00. 1630, 410 


C-31 


ftHCB 0  ASSEMBLER  flftRLYOONROE 


04/17/09  PftGE  6 


IOC  oej  L1!C  SOURCE 


00EC  21 
WED  76 
00EE  30 
00EE  42 
0OF0  21 

0061  7? 
00F2  2& 
00F3  52 
00F4  21 
0OF5  76 
0066  3D 
00F7  52 
0068  21 
0069  79 
•J0Ffl  21 
00FB  41 
00FC  21 
00FD  76 
00FE  31 
00FF  41 
0100  21 

0101  79 
0102  31 
0103  50 
0104  21 
0105  76 
0106  31 
0107  50 
0108  21 
0105  79 
010ft  31 
0106  5F 
010C  21 
0100  76 
010E  31 
010F  5F 
0110  21 

0111  79 
0112  32 
01! :  4E 
0114  21 

0115  76 

0116 
0117  JE 
0118  21 
011?  79 
011fi  22 
01 IB  50 
011C  21 
0110  76 
011E  32 
011F  50 


41  PICP0INTS16  DB  410, 1710, 600..  1220..  410, 1660. 600..  1220. 410, 1710. 610..  1010, 410, 166 
0,610.1010 


42  PICP0INTS17  D6  410,1710,610,1200,410,1660.610  1200,410,1710,610,1370,410,166 
0,610,1370 


43  PICP0INTS18  D6  410. 1710, 620, 1160, 410. 1660, 620. 1160, 410. 1710, 620, 1350. 410- 166 
0,620,1350 


032 


✓ 

< 

( 


8086/8087/8088  MACRO  ASSEMBLER  MARLVN.MONROE 


84/17789  PAGE 


LuC  OBJ 
0128  21 
0121  79 

0122 

0122  4C 
0124  21 
0125  76 
0126  3! 
0127  4C 
0128  21 
0129  79 
0120  23 
0128  56 
012C  21 
01 2D  76 
012E  23 
012F  56 
0130  21 

0131  79 
0132  34 
0133  40 
0134  21 
0135  76 
0126  34 
0137  40 
0138  21 
0139  79 
0130  34 
0136  59 
013C  21 
0130  76 
01 2E  34 
01 3 F  59 
0140  21 

0141  79 
0142  35 
0143  48 
0144  21 
0145  76 
0146  25 
0147  48 
0148  21 
0149  79 
0140  25 
0146  57 
014C  21 
0140  76 
014E  35 
014F  57 
0150  21 


LINE  SOURCE 

44  PICP0INTS19  DB  410, 1710, 630, 1140, 410, 1660, 630. 1140, 410, 1710. 630  1330, 410, 166 
0,630,1330 


45  PICP0INTS28  D6  410,1710,640,1120,410,1660,640,1120,410.1710  640.1310,410.166 
0, 640, 1310 


PICP0INTS21 

0,650,1270 


410, 1710, 650, 1160, 410, 1660, 650- 1100, 410. 1710. 650. 1270. 410- 166 


PICP0INTS22 

0,660,1250 


410. 1710, 660.  I860, 410, 1660, 660  1060. 410. 1710. 660. 1250. 410. 166 


0151  79 
0152  36 


C-33 


Wt-t.- 8067/8088  MflCRO  05SEHBLEP  MflRLVN-MONROE 


04/17/05  PAGE  8 


uX  OBJ 

015'  46 
8154  21 
0155  76 
0156.  26 
0157  46 
0158  21 
6155  79 
0150  26 
0158  55 
015C  21 
0150  76 
015E  76 
015F  55 
0160  21 

0161  7? 
0162  27 
0162  44 
0164  21 
0165  76 
0166  27 
0167  44 
0188  21 
0169  79 
0160  27 
0168  52 
016C  21 
0160  76 
016E  27 
016F  52 
#170  21 

0171  79 
0172  28 
*173  42 
*174  21 
0175  76 
0176  38 
0177  42 
0178  21 
0179  79 
0170  38 
017B  51 
017C  21 
0170  76 
017E  38 
017F  51 
0180  21 

0181  79 
018?  39 
0182  40 
0184  21 
0185  76 
0196  39 


LINE  SOURCE 


48  PICP0INTS22  D8  410, 1710, 670, 1040, 410,1660. 670, 1040, 410, 1710, 670- 1230..  410. 166 
0;  670, 1230 


49  PICP0INTS24  08  410, 1710, 700, 1020, 410, 1660, 700, 1820, 410. 1710, 700. 1210, 410.,  166 

0, 700, 1210 


50  PICP0INTS25  08  410, 1710, 710- 1080, 410- 1660. 710. 1000, 410. 1710. 710- 1170. 410, 166 

0. 710, 1170 


034 


04/17299  PAGE  9 


MOCPO  ASSEMBLE?  MORLVN.HONROE 


LOt  06J 


LINE  SOURCE 


018?  40 
0105  21 
01c?  7? 
0180  39 
0186  4F 
018C  21 
0180  76 
818E  39 
018F  4F 
0190  21 

0191  79 
0192  59 
0193  5E 
0194  21 
0195  76 
01%  39 
0197  5E 
0198  21 
0199  79 
0190  30 
0196  40 
019C  21 
0190  76 
019E  3fl 
019F  40 
0100  21 

0101  79 
0102  30 
0103  5C 
0104  21 
0105  76 
01A6  30 
0107  5C 
0108  21 
0109  7? 
0100  36 
OlOE-  46 
01OC  21 
0106  76 
OIhE  26 
010F  46 
0100  21 

0161  79 
0162  36 
0163  50 
0164  21 
0185  76 
6166  58 
0167  50 
0168  21 
0169  79 
0160  3C 


51  PICP0INTS26  06 
0,720,1150 


410, 1710, 710, 1380, 410, 1660, 710, 1360, 410. 1710. 720. 1150- 410. 166 


PICP0INTS27 

0,730,1130 


410, 1710, 720, 1340, 410. 1660, 720, 1340, 410, 1710. 730. 1130, 410, 166 


PICPOINT'328 
0,740, 1110 


410, 1710, 730, 1320, 410, 1660, 730, 1320, 410, 1710,  ?40. 1110, 410, 166 


C-35 


mhcro  pssenbler  mbrivn-homroe 


w\im  FWE  le 


LW  06  J  LINE  SOURCE 


0168  49 
016C  21 
01BO  76 
01BE  2C 
01BF  49 
01C0  21 


*iCl  79 
Oli'?  1C 
01C2  58 
01Ci  21 
01C5  76 
01C6  2C 
81C7  58 
01C3  21 
01C9  79 
01CR  X 
01CB  47 
01CC  21 
01CC*  76 

0i ce  :<[• 

01CF  47 
0106  21 
0101  79 
01D2  <0 
0102  56 
0104  21 
01D5  76 
01D6  30 
0107  56. 

0108  10 

0109  21 
0100  7C 
0106  22 
01OC  4C 
01W*  22 
01OE  79 
01Of  22 
01E0  4f 
01E1  24 
01E2  75 
01E2  25 
01E4  45 
01E5  36 
01E6  6F 
01E7  25 
01E8  59 
01E9  36 

01E0  6F 
0166  26 
01EC  4C 
01EO  24 


54  PICP0INTS29  06  410, 1710, 740, 1390, 410.  I860. 740. 1200, 410, 1710. 750, 1070, 410, 166 

0,750,1070 


55  PICPO1NTS20  D6  410,1710,750,1260,410,1660,750,1260 


56 

57  PICPGINT521  06  350. 410, 1740, 420, 1140, 420, 1710- 420, 1140, 440, 1650, 450. 1050, 660 

,1570,450,1210 


58  PICP0INTS52  06  660, 1570, 460, 1140, 440. 1650, 470, 1010, 420, 1710,  SO,  1230, 410, 174 

0,550,1220 


C-36 


04/17/09  PftGE  11 


n 

'  3w*.-m78383  NflCRO  ASSEMBLED  HflRLYN.NONROE 
lOC  >:ti  LINE  SOURCE 


■*1EE  75 
jIEF  27 
01F0  41 
01F1  22 
4F2  79 
01F3  20 
01F4  53 
01F5  21 
01F6  7C 
01F7  20 
01F8  53 
31F9  21 
0lFfl  7C 
01FB  22 
01FC  4C 
eifo  id 

01FE  21 
01FF  ?i 
0200  26 
6201  43 
0202  It 
0203  6F 
0204  26 
0205  42 
O20t.  1C 

0207  24 
0208  74 
0209  2t> 
0200  41 
0200  22 
020C  7? 
0200  26 
020E  41 
028F  ’0 
0210  77 
0211  26 
0212  4| 
0313  2F 
0714  60 
02 15  26 

0716  41 

0717  20 

0218  64 
0219  26 
0210  41 

0216  l? 
>V1C  to 
0210  2-- 
‘VIE  41 
9df  29 
0226  6C 
0221 
0772  41 


59  FICPOINTS33  06  410,1740.420.1140,350,410.1740,460,1030,660.1570.460.1020 


66  P1CP01NTS24  06  340, 640, 1640. 460. 1610. 620, 1700-  460, 1010. 600, 1740, 460, 1010, 570 

,1400,460,1010 


61  P1CP0INTS35  OB 
0,460- 1010 


550. 1440, 460. 1010, 530, 1500, 460, 1010, 510, 1540. 460, 1010, 470. 160 


C-37 


8086/8887/8088  MftCRO  ASSEMBLER  MflRLVNJIONROE 


LOC  OBJ 

0223  27 
0224  70 
0225  26 
0226  41 
0227  25 

0223  74 
0223  26 
022ft  41 
0226  27 
022C  78 
0220  26 
022E  41 
022F  34 
0230  74 
0231  26 
0232  45 
0233  32 
0274  78 
0235  26 
0236  45 
0237  30 

0238  7C 
0239  26 
023ft  45 
0236  2F 
023C  60 
0230  26 
023E  45 
023F  20 
0240  64 
0241  26 
0242  45 
0243  2B 
0244  68 
0245  26 
0246  45 
0247  29 

0248  6C 
0249  26 
024ft  45 
024e  27 
024F  70 
0240  26 
024E  45 
024F  25 
0250  74 
0251  26 
0252  45 
0253  23 
0254  78 
0255  26 
0256  45 


LINE 


SOURCE 


62 


PICP0INT536 

0,460.1050 


oe 


PICP0INTS37 
0,460, 1050 


06 


64 


PICP0INTS38 
0,460, 1050 


06 


450, 1640, 460. 1010, 430, 1700, 460. 1010, 640. 1640. 460. 1050, 620. 170 


600, 1740, 460, 1050, 570. 1400, 460. 1050, 550, 1440, 460- 1050, 530, 150 


510, 1540, 460, 1050, 470, 1600, 460, 1050.  450. 1640, 460. 1050, 430, 170 


;.Sh/K0S7  «*CRO  ASSEMBLER  MRLWJWNROE 


04/17/09  PAGE  II 


LINE  SOURCE 


0257  .'1 

0258  79 
0259  22 
0250  4C 
0256  21 
025c  7( 
0250  22 
025E  4C 
0?5f  2i 
0280  ~9 
0261  22 
0262  56 
0263  21 
0764  ?►• 
0265  22 
0266  5B 
0267  21 

0268  79 
8269  23 
026A  4fl 
026B  21 
026C  76 
0261'  21 
026E  46 
0766  21 
0270  79 
0271  23 
0272  59 
027'  21 
0274  76 
0275  23 
0276  59 
0277  21 

0278  79 
0279  24 
0270  46 
0276  21 
027C  76 

0i7['  t'4 
02 7E  46 
0276  21 
0280  79 
0281  24 
0282  57 
0282  21 
0284  76 
0285  24 
0286  57 
0?87  21 


65  f 1CP0INTS39  D6  410-1710,420.1140,410  1664  420 -1140, 410. 1710. 420. 1330  410  166 
0-420. 1330 


P1CPO1NTS40  Cfl  410. 1710-  430. 1120, 410- 1660- 430- 1120, 410, 1710. 430, 1310. 410, 166 
0-  430. 1310 


PICP0INTS41  OB  410. 1710, 440. 1100. 410. 1660. 440, 1100. 410  1710, 440, 1270. 410  166 
0. 440, 1270 


68  PICP0INTS42  OB 
0. 450, 1250 


410, 1710. 450. 1060-  410, 1660. 450, 1060. 410. 1710, 450, 1250. 410. 166 


0288  79 


C-39 


9*86.  8*87/8088  H0CRO  ASSEMBLER  M0RLYNJ1ONRGE 


04/17/09  PAGE  14 


l'X  OBJ  LINE  SOURCE 


02::-r<  46 
0286  21 
828C  76 
t-280  25 
>>.'&£  46 
828F  21 
8290  7? 
m2? I  25 
0292  55 
m2?:  21 
8294  76 
m 5  25 
02.%  55 
02?'  21 

02?8  '? 
0299  _>• 
029B  4i 
«29B  21 
02%  76 
0291-  26 
029E  42 
029F  21 
02A0  79 
0201  26 
0202  53 
0202  21 
0204  76 
0205  26 
0206.  53 
0207  21 

0^08  7? 
020?  27 
0200  42 
0206  21 
020C  76 
0200  27 
020E  42 
020F  21 
0260  79 
0261  27 
02B2  51 
0263  21 
0264  76 
0265  27 
0266  51 
»267  21 

0268  79 
0289  28 
0260  40 
0266  21 
028C  76 
0260  28 


69  PICP0INTS43  DB  410,1710,460  1020. 410. 1660. 460. 1020- 410.1710  460  1230,410.166 
0,460,1230 


70  PICP0INTS44  DB  410  1710.470.1020,410,1660  470.1020.410.1710.470.1210,410  166 
0, 470, 1210 


71  PICP0INTS45  DB  410, 1710, 500- 1000, 410, 1660, 500, 1009, 410. 1710, 500- 1170, 410, 166 
0,500,1170 


C-40 


■3 


806*/808?/8688  N6CP0  07SE0BLEP 


LiV  tjb ! 
026F  4n 

mz  21 

*2l0  79 
02C1  28 
02C2  4F 
02C3  21 
02C4  76 
02C5  28 
02C6  4F 
02C7  21 

M8  "*9 
02C9  28 

82Cm  5E 
02CB  21 
82CC  76 
02CD  28 
02CE  5E 
02CF  21 
0200  70 
*201  20 
0202  40 
020?  21 
0204  76 
0205  20 
0206  40 
0207  21 

0208  70 
0200  20 
0200  5C 
02DB  21 
02OC  76 
02C)O  20 
02OE  5C 
02DF  21 
02E0  74 
02E1  20 
02E2  48 
02E2  21 
02E4  76 
02E5  20 
02E6  46 
02E7  21 

02E6  70 
02F0  26 
02E0  50 
02EB  21 
02EC  76 
02EO  20 
02EE  56 
02EF  21 
02F0  70 
02F1  28 


LINE 


M0RLVN.NONFOE 

SOURCE 


04/17 ''OS  P6GE  15 


72 


PICP0INTS46  08 
0,510.1150 


410, 1710, 500, 1260, 410, 1660, 500, 1260, 410. 1710. 510, 1150, 410, 166 


7? 


PICP0INTS4? 
0,520, 1130 


OB 


410, 1710, 510, 1340, 410. 1660. 510. 1340, 410. 1710, 520. 1130. 410, 166 


74 


PICP0INTS48 
0. 530, 1110 


C* 


410, 1710, 520, 1320, 410, 1660. 520, 1320. 410- 1710, 530. 1110, 410, 166 


C-41 


i  _k. 


Wf./m7/ms  MACRO  assembler  marlvn.honroe 


04/17/09  PAGE  16 


LOl  uBJ  line  source 


U2F2  49 
02F ]  21 

02F4  76 
02F5  2B 
02F6  49 
02F7  21 

02F6  79 
02F9  26 
02FA  58 
02FB  21 
02FC  76 
02FC>  26 
02FE  58 
02FF  21 
8200  79 
0701  2C 
8302  47 
0303  21 
0304  76 
0305  2C 
0306  47 
0307  21 

0308  79 
0309  2C 
030A  56 
030B  21 
030C  76 
0300  2C 
030E  56 
030F  21 
0310  79 
0311  20 
0312  45 
0312  21 
0714  76 
0315  20 
0316  45 
0317  21 
0318  79 
8319  2D 
031A  53 
03 IB  21 
07 1C  76 
•KID  2D 
03 IE  53 
031F  ID 

0320  24 
0321  76 
0322  22 
0322  4f 
0324  IF 
0325  2* 


75  PICPOINTS49  DB  410, 1710, 530, 1300- 410, 1660, 530. 1300, 410. 1710, 540, 1070, 410, 166 
0, 540, 1070 


76  PICPOINT550  DB  410,1710,540,1260,410,1660,540,1260,410,1710,550,1050,410.166 
0,550.1050 


77  PICP0INTS51  D6  410,1710,550,1230,410.1660,550.1230 


78  PICP0INTS52  DB  350. 440. 1660, 420. 1140. 370, 500, 1250. 1200, 510. 350, 440, 1660, 500, 
1240 


C-42 


9886/8067/8088  MACRO  ASSEMBLER  MARLVN.NONRGE 


04/17/89  PAGE  17 


L'.C  OBJ 


0726  55 
032?  58 
0328  29 
0329  It' 
032A  24 
0326  76 
032C  28 
032D  54 
032E  IF 
832F  28 
0330  44 
0331  4F 
0332  57 
0253  4E 
0224  29 
0225  OB 
0236  16 


0327 


0227  10 

0  .'6  21 
0234  7C 

052A  22 
0226  50 
»Vif  22 
o':o  7h 
>'"L  V- 
O' lb  5f‘ 
0248  24 
0241  76 
0242  29 
0342  4f 
0244  6 

0345  6F 
0246  ?A 
024,  44 
0248  .6 
0249  6F 
0340  20 
024B  56 
034C  24 
0340  76 
024E  38 


Hf£  SOURCE 


79 


PICPQINTS53 


oe 


370, 500, 1040, 1170. 1270, 1160. 510. 150, 380 


80 

61 

62 

84 

85 
66 

87 

88 

89 

90 


LAST  LABEL  WORD 

,  ****** **** ***************************************************************** 
START  VERTICAL  REP  DATA 

,  *************************************************************************** 

,  START  VERTICAL  ENVELOPE 

VREPl  06  350, 410, 1740, 620. 1350. 420. 1720. 620- 1350. 440. 1660. 710, 

1170 


91 


VREP2 


06  660. 1570. 720. 1040. 660. 1570. 720- 1260  440- 1660, 720. 

1130. 420, 1720. 760. 1030 


macro  assembler  marlvnjwnroe 


04/17/89  PAGE  18 


LC»  OBl  LINE  SOURCE 

0!>r.l  ~H 
675'  7£ 

0.57  47 

0'54  21  92  VREP3  OB  410. 1740, 760, 1030, 410, 1740. 620. 1 250. 250. 410, 1740. 720, 

1150,660, 1570,720, 1150 

0.55  ?C 
8356  2E 
0357  41 
6358  21 
0259  7C 
0250  72 
0]5B  5f> 

025C  IP 
0250  21 
035E  07 
0Z5F  30 
0360  40 
0361  36 
0362  6F 
0363  20 
0264  40 

93  ;  END  VERT  ENVELOPE 

94  ;  START  WORDS  ‘UP,  DOWN"  ON  RIGHT  SIDE  OF  SCREEN 

0365  10  95  VREP4  DB  350, 440, 1660, 750, 1210, 370. 500. 1250. 1200, 510, 250, 440, 

1660, 650, 1340. 370, 500, 1040, 1170, 1270. 1160. 510 

0366  24 
0367  76 
0368  3D 
0369  51 
0360.  IF 
0366  28 
036C  55 
0360  50 
036E  29 
836F  ID 
0370  24 
0371  76 
0372  35 
0777  5C 
0374  IF 
0275  28 
8376  44 
0:77  4F 
0378  57 
0379  4E 
0370  29 

96  END 

97  ; START  VERTICAL  REP  NIL  TICS 

0776  1C  98  VREP5  D6  340,410, 1710, 620.1350  410, 1660. 620, 1350.410. 1710, 630, 

1140, 410, 1660 

05 ?t  21 
03 7D  79 
037E  32 
027F  50 
0380  21 


C-44 


8086/8087/8088  HfiCRO  ASSEMBLER  N0PLVN_MONROE 


64/17/09  PAGE  19 


LOC  OBJ  LINE  SOURCE 

0881  76 
0382  82 
0888  50 
0884  21 
0885  79 
0886  83 
8887  4C 
0388  21 
0889  76 

0380  33  99  VREP55  C*  630- 1140. 410, 1710, 630, 1330..  410, 1660. 630, 1330 

0386  46 

038C  21 

0380  79 

038E  33 

038F  56 

0390  21 

0391  76 

0392  33 

0393  56 

0394  21  100  VREP6  DB  410, 1710. 640, 1120, 410. 1660, 640, 1120, 410, 1 710. 640. 1310, 

410,1660,640,1310 

0395  79 
03%  34 
0397  40 
0398  21 
0399  76 
@390  34 
0396  40 
039C  21 
0390  79 
039E  34 
039F  59 
0300  21 
0301  76 
0302  34 
0303  59 

0364  21  101  VREP7  06  410. 1710, 650. 1100. 410- 1660. 650, 1160, 410, 1710, 650, 1270, 

410,1660,650,1270 

0305  79 
0366  35 
0307  48 
0308  21 
0309  76 
0300  35 
030B  48 
030C  21 
0300  79 
030E  35 
030F  57 
0380  21 
0381  76 
8382  35 
0383  57 

0384  21  102  VREP?  08  410, 1710, 660,  i860, 410, 1660, 660.  I860. 410, 1710, 660, 1250, 

410,1660,660,1250 


C-45 


3086/8887/8888  MACRO  ASSEMBLER  MARLVNJIONROF. 


84/17/89  PAGE  28 


LOC 

OBJ 

03B5 

79 

03B6 

36 

03B7 

46 

03B8 

21 

03B9 

76 

038fi 

36 

03B6 

46 

03BC 

21 

03BO 

79 

03BE 

36 

038F 

55 

03C0 

21 

03C1 

76 

03C2 

36 

03C3 

55 

03C4 

21 

0T5 

79 

03C6 

37 

03C7 

44 

00 

c_» 

Pi 

21 

03C9 

76 

03CA 

37 

03CB 

44 

03CC 

21 

03CD 

79 

83CE 

37 

03CF 

53 

8300 

21 

8301 

76 

0302 

37 

0303 

53 

0304 

21 

0305 

79 

0306 

78 

0307 

42 

0308 

21 

0309 

76 

8308 

38 

0306 

42 

03DC 

21 

8300 

79 

830E 

38 

830f 

51 

03E0 

21 

03E1 

76 

03E2 

38 

03E3 

51 

83E4 

21 

03E5 

74 

83E6 

39 

HiV 

48 

03E8 

21 

LINE  SOURCE 


103  VREP9 


OB  410, 1710, 670, 1840, 410. 1660, 670, 1840, 410, 1710, 670, 1230, 
410,1660,670,1230 


104  VREP10 


06  410- 1710, 700, 1820, 410, 1660, 700. 1020, 410. 1710, 700, 1210, 

410, 1660, 780, 1210 


105  VREP11 


OB  410, 1710, 710, 1080, 410, 1660, 710, 1080, 410, 1710, 710, 1170, 
410, 1660,710,1170 


C-46 


8886/8887/8888  MACRO  ASSEMBLER  MARLVNJIOWOE 


84/17/09  PAGE 


LOC  OBJ  LINE  SOURCE 

03E9  76 
83EA  39 
83EB  48 
03EC  21 
03EO  79 
03EE  39 
03EF  4F 
03F0  21 
03F1  76 
03F2  39 
03F3  4F 

03F4  21  106  VREP12  OB  410,1710,710.1360,410,1660,710,1360,410.1710-720-1150, 

410,1660,720,1150 

03F5  79 
03F6  39 
03F7  5E 
03F8  21 
03F9  76 
03FA  39 
03FB  5E 
03FC  21 
03FD  79 
03FE  3A 
03FF  40 
0400  21 
0401  76 
0402  3A 
0403  40 

0404  21  107  VREP13  {*  410,1710,720,1340,410.1660,720,1340,410,1710,730,1130, 

410,1660,730,1130 

8405  79 
0406  3A 
0407  5C 
0408  21 
0409  76 
040A  3A 
040B  5C 
040C  21 
0400  79 
040E  38 
040F  48 
0410  21 
0411  76 
0412  38 
0413  4B 

0414  a  108  VREP14  08  410,1710,730,1320,410,1660,730,1320,410,1710,740,1110, 

410,1660,740,1110 

0415  79 
0416  38 
0417  5A 
0418  21 
0419  76 
041A  38 
0418  5A 
041C  21 

C-47 


3*4  17/05  PAGE 


•  '  -r  Ar  r.tflr.  »rn  plj  Ab5tN8LER  ^0SLVN_Hl/JRlJt 


l  1NE  SOLIPCE 


*’4JD  75 
**4it  1 

7*4  IF  45 
''4.0  /I 
*’4^1  >. 
ii4. ?  7*. 
042.-  45 
7*424  21 
0425  7'a 
0426  "*' 
0427  j' 
042S  21 
0429  7*5 
042A  3*. 
*44.-  8  59 
042C  21 
94 2D  79 
04 2£  :<r 
042F  47 
0430  21 
0421  ,V 
0422  3D 
04:2  47 
0474  21 
0435  79 
04  V,  2D 

0437  55 
04 3t  21 
0439  75 
•14.0  2  D 
.*478  % 


/w  r  it 

04  7  D  '4 
04  3t  74 
043F  78 
0440  4P 
0441 
0442  7ft 
n44  'h 
0444  48 
0445  "0 
.*44/  7*7 
0447  70 
►*44ft  40 
**44-  a 
**44m  pi* 
.*44r,  ■  0 
.•44  48 


109  VREP15  06  410, 1710- 740. 1300- 410- !t59- 740, 1200. 41Q.  1710  750.  i*.*70 


110  VREP05  06  410, 1660. 750, 1070, 410, 1710, 750, 1260  ilu, 1650, 750, 1260 


111  *  END 

112  .START  TIME  TICS 

112  VREP16  00  340.  «40, 1640, 720. 1130. 620, 1700- 720- 1130. 600, 1740, 720, 

1130,570, 1400.720.1130 


114  V9EP17  D8  550,1440-720  J 130, 530, 1500  720. 1130. 510. 1540. 720,  U30, 

470, 1600  “20, 1130 


•  448 

044C  in 


C-48 


.-HHn  'SOS"  'PVixf  HftCOO  hSSEHBIER  MPPL»HJlQk\ 


*34/17/89  PROE 


■  t-.' 


LINE  SOLACE 


»i4r.M  4r- 
«4C» .  2’B 

i'i4r- 

►MS  H 

<V4*55  19 

tl4Sri  rY 
M.tS~  H 

f«45b  4r 
^459  2~ 
*45h 

'H 

045C  4b 
845E>  25 


045c  14 
845F  10 
4i4*58  46 
6461  2: 
04*2  76 
6461  16 
,.J.  4  46 
m4»;c.  14 
04kk  74 
04k"  4 

n4. .-  if 
ii44-i  7j 

0460  7> 
6466  ’0 
6466  4F 
0460  :<0 

0*+k6  7 1_ 
0-  46  -0 
04  ?h  4f 
0471  26 
M72  60 
0471 
0474  4F 
047c‘  21/ 
0476  64 
0477  10 
047'e  4F 
047.4  26 
6470  k6 
0476  10 
«47C  4F 
0471'  29 

0  .76  f.C 

>j476  ;0 
0480  4F 
0481  27 
0482  70 
0483  30 


115  VREF‘18 


06  45 0. 1640- 720. 1110. 410- 1700- 720. 1110. 640. 1640  ?20. 1170 

620- 1700. 720. 1170 


116  VRtF'19 


It  600. 1740. 720. 1170. 570. 1400. 720. 1170. 550. 1440. 7?0. 1170 
510, 1580. 720. 1176/ 


117  VREP20  06  510. 1540.  720. 1170. 470. 1600. 720. 1170. 450. 1640. 720. 1170. 

410,1700,720,1170 


04/17/05  PhGE 


‘*86.  8087/80t":.  M0CPO  rtSSEMBLEr  Nn- 


■  "P : 

44.':4  4F 

44  55  :  r 

"4-6  ”4 
0487  J0 
04.':9  4F 
.,4  -.4  y\ 
>J4HH 

‘.'4«6  in 
44-9C  4r 


0480  IP 


@4 BE  2F 
048F  74 
,t440  2E 
0441.  4f 
0492  IF 
0444  H4 
0494  IP 
0491,  7E 
"496  76 
0497  2E 
"498  4C 
0494  If 
0490  49 
"49b  10 
049C  t0 
049('  78 

"44T 

■944F  4C 
>9400  IF 
4401  40 
"402  ip 
440'  2t 
4404  '0 
0405  2fc 
4-tMb  41 
**4m7  IF 
040X  40 
0409  10 
4400  >0 
0J0R  '• 
''■‘■y  if 

•  :hC,  4f 
040E  IF 
040F  13 
04B0  10 
0461  26 
0462  F0 


'OLIPCE 


118  .END 

119  i  ST0PT  "TIME-SEC  «POHn 

120  VREP21  D6  350.570,1640.560.1140,270.1240.250.560.1660.560  1140. 

270, 1110-  250, 550, 1700. 560. 1140, 270, 1150 


121  VREP22  De  350. 540. 1720, 560, 1140, 370, 1050, 250-  520, 1760, 560, 1140 


122  VREP02  06  370, 1220. 250, 520, 1400, 560. 1140. 270. 1050. 250, 510, 1420 


SM*  HftCPO  HSSEMBLEP  MRLVNJMNRCE 


64/17/09  PP6E 


■.  (if  OB  i 

(MBS  29 
440  i  S2 

*4BP  2E 
•44f;&  4( 
04BC  IF 
(MPD  4 .. 
04BE  1C> 
‘•4SB 
04(  !■  7" 
•'4(1  ,'E 
04C2  52 
04C2  22 
64C4  64 
64C5  2E 
04(6  52 
*I4>  { 

04(8  7S 
0409  2E 
04Cfi  58 

►nee  id 

(HCC  22 
84 ib  76 
-'40  E  2E 
840  F  4C 
6400  2: 
04D1  84 
0402  cE 
040:  S2 


0404  It- 

0405  71 
0406  /( 
0407  2E 
(i4f.K  47 
"409  21 
7C 

*406  2c 
"40C  4(i 
•'Mt'l  it 
‘Ml'E  b( 
04DF  22 
•I4E0  40 


•MEl  ID 

04E2  28 
04E2  7p 
04£4  72 
04E5  48 
04E6  IF 
44F  4D 
04E8  4a 


LINE  SOUPCE 


122  VREP23  DEf  560. 1140. 770, 1030 


124  VREt-24  DB  250, 610. 1770, 560, 1220, 630- 1440, 560. 1220. 620- 1660. 560 


125  VREP04  DB  ® 350-  620. 1660. 560. 1140. 630, 1440, 560. 1220 


126  ,  END 

127  , ST OPT  LEFT  ENVELOPE 

126  VPEP25  DB  250..  410, 1740, 560. 1110, 410. 1740-  420.1800. 660, 1570-  420. 

1000 


129  .END 

130  ■  STW'T  "MISSILE  08OVE  'WOUND  (FEET)" 

131  VPEF26  DB  250. 400. 1760. 420, 1100. 370. 115Ci.  1110. 3220. 122C' 

1110, 1140, 1050- 400. 1010, 1020, 1170. 1260. 1050 


C-51 


64/1? 'OS  PKfvE 


i 


mr  -m  mro  mssembler  mvN.noNROE 


It.  I  lf. 


>_i4E  4  s; 
64Fn  53 
64FB  4* 
i't4tC  4f 
v/,1  •  45 
«4tt  26 
»;i4EF  41 
04F  6  42 
64F  1  4F 
t»4F2  5b 
*4F;  45 
04F4  2* 

64F5  47 
».i4Fr  52 
WF'  4f 
y*4Fci  55 

0Jf4  4f 

n4Fr>  44 
64FB  2* 
64FC  28 
64FD  46 
64F1  45 
04FF  45 
*566  54 
6561  {.* 
*5t>2  ID 


656  ID 

6564  ]/> 

6565  64 

6566  21 
0567  48 
>F6t:  IF 
►j' *i.-i  47 
656ft  ID 
056B  22 
6501  66 
0500  21 
050E  4% 
650F  IF 
0510  52 

6511  ID 

6512  71 
65!:  68 

6514  2L 

6515  4k 
65lr  If 
0517  4F 
6510  ID 


6514  30 
0510  40 


LINE  SOURCE 


132  VPEP06  DB  m  1070. 1220..  1170, 1250, 1160- 1040.400, 500. 166Ci.  1650. 

1050, 1240,510.350 


133  •  END 

134  SWT  "W  LEVEL" 

135  VREF86  DB  350, 630, 1440, 410. 1100, 370  1070,350,020.1460.410.1100. 

370, 1220. 350, 610, 1500, 410. 1100, 370, 1170 


136  VPEF'27 


06  350. 600, 1520  410.  1100. 370, 1250, 350. 570, 1540, 410. 1100. 

370- 1160, 350, 560. 1560, 410, 1100. 370, 1040 


C-52 


j. 


3fc*.  •  '8088  MACRO  ASSEMBLER  HARLVNJWNROE 


04/17/09 


lOl  OBJ 


0511  21 
051C  43 
f'jlD  LF 
051E  55 
*511  10 
i'5tn  2F 
00. 1  EC 
**5<v  21 
0522  48 
0524  IF 
0525  4E 
**528  10 
0527  2E 
0528  61 
057'*  21 
0520  48 
052B  IF 
052C  44 
0520  10 


052E  2C 
052F  72 
0528  21 
0551  48 
8572  If 
8532  4C 
0524  10 
0555  26 
0556  74 
0557  21 
**558  48 
05;?  IF 
0538  45 
0556  It' 
052C  20 
0'  0  76 
05.1 
053F  48 
0540  IF 
0541  56 
0542  10 

**'■44  5 
*045  21 
0r  4h  48 
‘.*547  IF 
■  1548  45 
m'4?  If. 
0t40  20 
0548  70 
054(7  2l 
*^41’  4ft 
**‘'4F  IF 
**54 f  4*; 


LINE  SOURCE 


157  VREP28 


06  550, 540, 1620, 410, 1100  570, 1140, 550, 550. 1640. 410, 1160 

570, 1050, 550, 520, 1660, 410, 1100, 570, 1260 


128  VREP2? 


OB 


550, 510, 1700,410. 1100. 


770. 1650, 550. 500. 1720, 410, 1160 


570, 1140 


C-53 


0066/8087/8088  MACRO  ASSEMBLER  H0RIVN.MONROE 


04/17/09  PAGE  28 


LUC  OBJ  LIME  SOURCE 


8550  1' 

0551  21 
0552  79 
0553  22 
0554  40 
0555  21 
0556  76 
0557  22 
0558  40 
0559  21 
055ft  79 
0556  23 
055C  4C 
0550  21 
055E  76 
U55F  23 
0560  4C 
0561  21 

0569  7? 
0563  24 
0564  57 
0565  21 
0566  76 
0567  24 
6568  57 
0569  21 
@560  79 
U56e  76 
056C  43 
0560  21 
056E  76 
056F  26 
0570  43 
0571  21 

0572  79 
0573  27 
0574  46 
0575  21 
0576  76 
0577  27 
0578  4f 
0579  21 
0570  79 
057B  28 
>6?i  50 
0570  21 
05 7£  76 
957F  28 
0580  50 
0501  21 


129 

.END 

140 

•  START 

"FEET  TICS" 

141 

VREP30 

DB 

340, 410, 1710, 420, 1000, 410, 1660, 420, 1000, 410, 1710. 430, 

1140.410,1660,430,1140 


142  VREP31  OB  410, 1710, 440, 1270, 410- 1660, 440. 1270, 410. 1710, 460- 1030, 

410, 1660,460,1020 


143  VREP32  06  410,1710,470,1170,410,1660,470.1170,410.1710.500.1320. 

410,1660, 500,1320 


144  VREP32  OB  410, 1710. 520  1060, 410, 1660, 520- 1060, 410. 1710, 530, 1220, 

054 


80*0.  nMLKU  MbbtfleLtK  PIMKLVN-IIUNiait 


mtir  rnue 


I'X  'ip'  LINE  SOURCE 

410- 1660- 520, 1220 

iVift?  ,  - 

0583  20 
0504  4," 

HbKr,  jl 

0jKr.  'p 

0587  20 
058:8  J6 
0588  21 
058m  78 
0588  2B 
058C  52 
0580  21 
058E  76 
058F  28 
0580  52 

05:»1  21  145  VREP34  DB  410. 1710, 54011350.410,1660. 540. 1350. 410, 1710. 560  1110. 

410.1660.560.1110 

0582  78 
0587  2C 

0584  50 
0585  21 
05815  76 
05.-7  2C 
0586  50 
0598  21 
058m  79 
0598  2E 
058i  49 
0580  21 
058E  76 
059F  2E 
0500  49 

146 

147 

148 

149 

150 

151 

152 

0501  10  153 

0502  22 
0502  61 
0504  22 
0505  40 
0506  IF 
0507  20 
0508  10 
050?  22 
0500  61 
0506  26 
050C  43 
0500  IF 
050F  32 


,  ****>f*************#*********#****i(n****t*******##***-#**#*#*#!W****#»*********** 

THESE  NEXT  O0T0  ORE  FOP  HORIZONT0L  REPRIESE 

.END 

: ST0PT  “0  0NO  3" 

VREP35  OB  350, 420. 1410. 420. 1120. 370. 600, 350. 420. 1410, 460, 1030. 

270,630 


C-55 


hbcro  hssemblep;  harlyn_nqnpoe 


24/i?/09  mi  :<e 


U  “  1*1  Lift  SOURCE 


U' 

.iSpfi  >8 

m\  .'F 
OS 62  32 
HSB3  50 
85E14  IF 
m5FS  47 
0586  rc 
0567  4E 
05B8  4£ 
058^  4C. 
2)580  52 
0588  28 
858C  41 
05E![i  49 
*58E  40 
"5BF  49 
i  h  4E 
0‘m  1  47 
05f2  28 
*<5i  '  45 
05f  4  52 
85C5  52 
8506  4F 
85(7  52 
85C8  28 
85C9  79 

05c  a  4i. 

057  8  44 
85a  4C 
05CD  r’ 
ASTE  i- 
AVf  It' 


05(.0 


0508  If* 
8501  71 
0502  7C 
0502  2F 
05T4  54 
8505  27 
0506  SC 
0507  2F 

8508  54 

8509  24 
0508  64 
8508  25 
05OT  57 


154  ..END 

155  .START  "GUNNER  AIMING  ERROR  (MILS)" 

156  VPEP36  08  250. 400. 1760. 620. 1250. 270. 1070. 1250, 1160, 1160. 1850. 1220 

400, 1010, 1110, 1150, 1110, 1160, 1070, 400. 1050 


157  VREP27  08  1220, 1220, 1170. 1220, 480. 580. 1150, 1110. 1140. 1220, 510, 250 


158  .END 

159 

168  IAST.0F.VR8P  LABEL  WORD 
161 

162  . START  HORIZONTAL  GAE  ENVELOPE 

163 

164  HREF  08  350, 410. 1740, 570- 1240. 430, 1540, 570- 1240,  <40. 1440. 0650, 1270 


C-56 


**86/8087/8888  MACRO  HSSEHBLtF  A0RLVN_MONR0E 


04, '17/09  PAGE  31 


LOC  UBJ 


LINE  SOURCE 


0500  36 

P'JC'E  rf 
05DF  ^6 

05E0  40 
05E1  26 
«5E2  OF 
05E2  36 
05E4  5E 
05E5  24 
oSEo  64 
05E?  37 
05E8  5? 
05E9  23 
05E0  6C 
05EB  2D 
05EC  56 
05ED  21 
05EE  ?C 


165  HREP1  DB  0660. 1570. 0660. 1120. 0660, 1570, 9660.  IB.  440. 1440. 0670. 1230. 420 ■  1540  0 
750. 1260.410 


1740, 8750, 1260, 410, 1740. 570, 1240, 0350. 410, 1740. 0660, 1250, 0660. 1570. 06 


05FC  <D 
05F0  56 
05F1  21 
05F2  7C 
05F3  2F 
05F4  54 
05F5  ID 
05F6  21 
05F7  7C 
05F8  26 
05F?  c.5 
05Ffl  26 
05FB  6F 
05FC  36 


05FD  55 

05FE  1C 
05FF  34 
0600  74 
0601  26 
0602  52 
0603  22 
0604  78 
0605  26 
0606  52 
0607  20 
0606  7C 
0609  26 
0600  52 
060B  2F 
060C  60 
060D  36 
060E  r 


■  END 

, START  TIME  TICS 

HREPS  DB  1250, 340, 640. 1640, 660, 1230, 620, 1700. 660. 1230. 600. 1740. 660. 1230, 570, 14 
00, 660, 1230. 550. 1440, 660, 1230, 530 


C-57 


8t»86  sesr  6088  MftTPO  ASSEMBLER  NARLVN.MONPOE 


W/17/09  PflGE 


L'X 

08. 

0*«f 

20 

9616 

64 

06L1 

36 

0612 

5? 

0613 

28 

0614 

68 

0615 

36 

0616 

53 

0ol7 

29 

0618 

6C 

0619 

36 

0618 

S3 

0616 

27 

061C 

70 

0610 

36 

061E 

53 

061F 

25 

0620 

74 

0621 

36 

0622 

S3: 

0623 

23 

0624 

78 

0625 

36 

0626 

53 

0627 

34 

0628 

74 

0629 

36 

0628 

57 

0626 

32 

062C 

78 

0620 

36 

062E 

s? 

062F 

38 

06.30 

7C 

0631 

36 

0632 

57 

0633 

2F 

0634 

60 

0635 

36 

0636 

57 

0637 

20 

0638 

64 

0639 

36 

0638 

57 

063B 

2B 

063C 

68 

0630 

36 

063E 

c— 

063F 

29 

0640 

6C 

0641 

.'6 

6*42 

57 

0643 

27 

LINE  SOURCE 


170  HREP4  Oe  1500, 660, 1220. 510, 1540-  660, 1220, 470, 1600. 660- 1220. 450.  1640.  660.  12*0. 4 

30, 1700-  660. 1230, 640, 1640, 660 


171  HREP5  DB 


1270,620,1700,660 


172  HREP6  DB 
60,1270,510 


1270, 600, 1740. 660, 1270, 570, 1400, 660, 1270, 550, 1440, 660. 1270, 510- 1500, 6 


173  HREP7  D6 


1540. 660. 1270, 470. 1600, 660, 1270 


C-58 


W/17/09  PAGE 


hacro  assembler  marlvn.monpoe 


LOf  ' 


064 c>  _‘6 
lV.4^.  v 


0648  '4 
8649  "6 
064A  57 
0646  2  3 
064f  7o 
*64D  36 
*646  57 
0t>4F  ID 
*->50  2F 
06c,l  74 
0r.ri/  IE 
A653  4C 
0654  IF 
0655  c4 
0656  ID 
0657  2E 
0656  76 
0659  2£ 
065A  40 
065B  IF 
065C  49 
0650  ID 
06.5E  2D 
065F  78 
0666  2E 
0661  4C 
0662  IF 
0663  4D 
0664  ID 

0665  2C 
0666  7A 
0667  2E 
0668  4C 
0669  IF 
066A  45 
066B  ID 
066.:  2A 
066C1  7E 
066E  2E 
066F  4C 
0670  IF 
6671  53 
0672  ID 
0673  2A 
0674  68 
0675  2E 
0676  4C 
0677  IF 


■  END  SOMEWHERE  NEAR  HERE 
,  START  ARROW 

HREP8  08  450. 1640. 660, 1270, 430, 1700, 660. 1270, 350, 570, 1640, 560, 1140 .  ??0, 1240 


177  HREP9  OB  350, 560, 1660, 560, 1140, 370. 1110, 350. m 1700, 560. 1140, 370, 1150 


HREP10  r* 

•  1400, 560, 1140 


350, 540, 1720, 560, 1140, 370, 1050, 350, 520, 1760, 560, 1140, 370, 1230, 350  520 


HREP11  DB 


370, 1050, 350, 510, 1420, 560, 1140. 370. 1030, 350, 610, 1770, 560. 1220. 630, 144 


059 


8886/8887/8088  MACRO  ASSEMBLER  MARLVtLMONROE 


M/17/89  PAGE  34 


IOC  OBJ  LINE  SOURCE 


0678  45 
0679  ID 
067R  29 
067B  62 
067C  2E 
067D  4C 
067E  IF 
067F  43 
8680  ID 
0681  31 
0682  7F 
0683  2E 
0684  52 
0685  33 
0686  64 
0687  2E 
0688  52 
0689  32 
0688  76 
0686  2E 
068C  58 
8680  ID 
068E  32 
068F  76 
0690  2E 
0691  4C 
0692  33 
0693  64 
0694  2E 
0695  52 
0696  ID 

0697  24 
0698  76 
0699  2F 
063A  54 
0696  IF 
069C  28 
0690  4C 
069E  45 
069F  46 
06A0  54 
06A1  29 
0682  ID 
06A3  24 
06A4  76 
06A5  39 
06A6  59 
06A7  IF 
06A8  28 
06A9  52 
06AA  49 
06A6  47 
06AC  48 


0,560,1220 


180  HREP12  08  620,1660,560,1300,350,620,1660,560,1140,630,1440,560,1220 


181  HREP13  08  350,440,1660,570,1240,370,500,1140,1050,1060,1240,510,350,440,1660,71 


182  HREP14  06  370.500,1220,1110,1070,1100,1240,510 


C-60 


«08*,  oW.Vc^C  htU.KO  AbitMBLtK  iWKLYNjIUNkUt 


04/1,'  0}  rrtit 


LOO 

OBJ 

LINE 

SOURCE 

0600 

54 

0ti€ 

2? 

183 

•  END 

184 

; START 

MIL  TICS 

060F 

1C 

185 

HREP15 

06 

0, 1020 

0660 

21 

0661 

7? 

8662 

2F 

066: 

54 

0664 

21 

0665 

76 

8666 

2F 

0667 

54 

0666 

21 

066? 

7? 

8660 

30 

9668 

43 

068C 

21 

0660 

76 

06BE 

38 

06BF 

43 

06C0 

21 

186 

HREP16 

06 

10 

06tl 

79 

0602 

30 

06C3 

52 

0604 

21 

<40, 410, 1710, 570, 1240,410, 1660, 570, 1240, 410. 1710, 600. 1030. 410. 1660. 60 


410, 1710, 600, 1220, 410, 1660, 600 , 1220. 410, 1710, 610, 1610, 410, 1660, 610, 10 


8086/8887/8088  MACRO  ASSEMBLER  MAPLYN.rtONROE 


04/17/09  PAGE  if 


LOC 

OBJ 

LINE 

SOURCE 

06DF 

5F 

O6E0 

21 

188 

HREP18 

OB 

50 

06E1 

79 

06E2 

32 

06E3 

4E 

66E4 

21 

06E5 

76 

06E6 

32 

06E7 

4E 

06E8 

21 

06E9 

7? 

06EA 

32 

06E6 

50 

06EC 

21 

06ED 

76 

06EE 

32 

06£F 

50 

06F0 

21 

189 

HREP19 

DB 

30 

96F1 

79 

06F2 

33 

A6F3 

4C 

A6F4 

21 

06F5 

76 

A6F6 

33 

06F7 

4C 

06F8 

21 

06F9 

79 

A6FA 

3:, 

06FB 

5B 

06FC 

21 

06FD 

76 

06FE 

33 

06FF 

5B 

0708 

21 

190 

HREP20 

OB 

10 

0701 

79 

0702 

34 

0703 

4A 

0704 

21 

0705 

76 

0706 

34 

0707 

4A 

0708 

21 

0709 

79 

070A 

34 

070B 

59 

070C 

21 

0700 

76 

070E 

34 

070F 

59 

0710 

21 

191 

HREP21 

OB 

70 

0711 

79 

410..  1710, 620, 1160, 410, 1660, 620, 1160, 410. 1710, 620, 1750, 410. 1660. 620, 17 


410, 1710, 630, 1140, 410, 1660, 630, 1140, 410. 1710, 630. 1330, 410, 1660, 630, 13 


410, 1710, 640, 1120, 410. 1660  640. 1120, 410. 1710, 640, 1310, 410. 1660. 640. 13 


410, 1710, 650- 1100, 410. 1660, 650. 1100, 410. 1710, 650, 1270, 410, 1660, 650, 12 


C-62 


I 


:■* 


huh *780877808#  HhCPO  BSSENBlEP 


Lui  06 1 


LINE 


0712  55 
0713  46 
0714  21 
0715  76 
0716  35 
0717  48 
0718  21 
0719  79 
0710  35 
071B  57 
071C  21 
0710  76 
071E  35 
071F  57 

0720  2'  192 

8721  79 
0722  36 
0723  46 
0724  21 
0725  ?b 
8726  36 
0727  46 
0728  21 
0729  79 
0720  36 
072B  55 
072C  21 
072D  76 
072E  36 
072F  55 

0730  21  193 

0731  79 
0732  37 
8733  44 
0734  21 
0735  76 
0736  57 
0737  44 
0738  21 
07'9  79 
*i7'0  57 
073B  55 
07?..  21 
V  i> 

■V3E  57 
07  F  s* 

'740  21  194 


0741  79 
0742  38 

0743  42 
0744  21 
0745  76 


NARLVN-MONROE 


SOURCE 


04717709  PftGE 


HREP22  D6  410, 1710, 660, 1060, 410, 1660, 660, 1060. 410. 1710, 660, 1250, 410. 1660. 660, 12 
50 


HREP2?  OB  410, 1710, 670, 1040, 410. 1660, 670. 1040. 410, 1710, 670. 1230, 410. 1660. 670, 12 
30 


HREP24  OB  410, 1710, 700, 1020, 410, 1660, 700. 1020, 410, 1710. 700. 1210. 410. 1660. 700. 12 
10 


C-63 


macro  assembler  marlvn.nonroe 


04/17/09  PASSE  76 


lX 

u8J 

0746 

ih 

tf747 

42 

0748 

31 

0749 

T9 

:8 

074P 

51 

674C 

0740 

•  •> 

074E 

0747 

51 

0750 

21 

0751 

79 

0/52 

3? 

0752 

40 

0754 

21 

0755 

76 

0756 

29 

0757 

40 

07T2 

21 

0759 

79 

0?5A 

?Q 

0756 

4F 

075C 

21 

0751, 

f?fc 

*?** 

29 

0756 

46 

0760 

21 

0761 

7c, 

0762 

0/63 

5E 

0764 

21 

0765 

76 

0/66 

3? 

0767 

56 

*768 

21 

0?6<) 

7* 

0/f'M 

2h 

076E 

40 

076*: 

21 

0760 

76 

0766 

ill 

076F 

40 

0770 

21 

0771 

79 

0/72 

3A 

0/73 

5C 

0774 

21 

0775 

78 

f»776 

3A 

4,77 

3C 

0778 

21 

0779 

79 

UHE  SOURCE 


195  HREP25  Ml  410-1710.710- 1000.410.1660,710.1000.410. 1710, 710.1170,410, 1660.710, 11 
70 


1%  HREP26  08  410,1710,710,1260,410,1660,710,1360,410,1710,720,1150  410  1660  720,11 

50 


/ 


197  HREP27  06  410, 1710, 720. 1340. 410- 1660, 720, 1340, 410, 1710, 730, 1 130, 410- 1660, 730. 11 

30 


C-64 


( 


8087/8088  MACRO  ASSEMBLER  MARL YN_ MONROE 


04/17/09  PAGE  ?9 


L'n  i.ip.i 


Uf£  SOURCE 


•>. ,  i  SB 

0776  4B 
077C  21 
0771'  7G 
077E  3 6 
07 /F  46 
0780  21 

0761  79 
0787  36 
078.  80 
0764  21 
0785  76 
0786  SB 
0787  S0 
0768  21 
0789  7* 
078A  Si 
0786  49 
078C  21 
078D  76 
076E  SC 
078F  49 
0790  21 

0791  79 
0792  „C 
079S  58 
0794  21 
0795  76 
0796.  SC 
0797  58 
0798  21 
0799  79 
0790  SO 
0796  47 
0?9C  21 
07*f-  76 
079E  SO 
07Qf  47 
0700  21 
0701  79 
0702  SO 
070S  56 
0704  21 
0  705  76 
07A6  SO 
0707  56 


0708  If' 


198  HREP28  06  410. 1710,  730, 1220  410.  i860.  720, 1220, 410. 1710. 740, 1110.430, 1660-  740- 11 

10 


199  HREP29  06  410, 1710, 740. 1300. 410. 1660, 740, 1300. 410, 1710. 750  1070. 410. 1660, 750..  16 

70 


206  HREP30  OB  410,1710,750.1260.410.1660,750,1260 


201  END  MIL  TICS 

202 

20?  ; START  "GUNNER  AIMING  ERROR  (MILS)" 

204  HREP31  D8  350.400,1760,600,1220,370,1870.1250.1160,1160.1050.1220. 

400, 1010. 1110, 1150, 1110, 1160, 1070, 400, 1050 


^  h*m  «  11  i  Hi 


0709  20 
07AA  7E 


C-65 


8886/8867/8888  MACRO  ASSEMBLER  MARLVtLMONROE 


84/17/89  PAGE 


LOC  OBJ 


LINE  SOURCE 


07AB  38 
07AC  52 
07AO  IF 
87AE  47 
07AF  55 
07B8  4E 
07B1  4E 
07B2  45 
0783  52 
07B4  20 
07B5  41 
0786  49 
07B7  40 
07B8  49 
07B9  4E 
07BA  47 
07BB  28 
078C  45 
07BD  52 
07BE  52 
07BF  4F 
07C0  52 
07C1  20 
07C2  28 
07C3  4D 
07C4  49 
07C5  4C 
07C6  S3 
07C7  29 
07C8  ID 


07C9  1C 

07CA  21 
07CB  79 
07a  22 
07CD  40 
07CE  21 
07CF  76 
0708  22 
0701  40 
8702  21 
07D3  79 
0704  23 
0705  4C 
0706  21 
0707  76 
0706  23 
0709  4C 
07OA  21 

0706  79 
07DC  24 


■k 


205  t*EP32  06  1220, 1220, 1170. 1220, 400. 580, 1150, 1110, 1140. 1230- 510, 350 


286  ,END 

287 

288  i  START  ’FEET  TICS* 

289  HREP33  DB  340,410,1710  420.1080,410.1660,420.1000,410,1710,430, 

1140, 410, 1660, 430, 1140 


210  MREP34 


06  410, 1710, 440, 1270, 410, 1660, 440, 1270, 410, 1710, 460, 1030, 

410,1660,460, 1030 


C-66 


_ . 


mhcro  bssemblep  nhrlvn_monpoe 


OH/ii.'nj  rixic 


L'K.  LINE  SOURCE 


h7do  sr 
07OE  21 
87DF  7* 

07E0  24 
07E1  57 
07E2  21 
07E3  79 
67E4  26 
87E5  4> 

07E6  21 
87E?  76 
07E8  26 
07F.9  43 

67EH  21  211  HREP35  C*  410. 1710, 470, 1170, 410, 1660, 470, 1170, 410. 1710. 500. 1  320- 

410, 1660, 500, 1320 

07EB  79 
07EC  27 
07ED  4F 
07EE  21 
07EF  76 
07F0  27 
07F1  4F 
07F2  21 
07F3  79 
07F4  28 
07F5  58 
07F6  21 
07F7  76 
07F8  28 
07F9  58 

07F0  21  212  HREP36  DB  410, 1710, 520, 1060, 410, 1660, 520. 1060, 410 . 1710, 530, 1220. 

410.1660,530,1220 

07FB  74 
07FC  <!H 
07FO  46 
07FE  21 
07FF  76 
0800  28 
8801  46 
0802  21 
0803  79 
0804  26 
0805  52 
0806  21 
0887  76 
0808  28 
8809  52 

21  213  HREP37  DB  410,1710,540,1350,410,1660,540.1350 

0808  79 
080C  2C 
0800  50 
0806  21 
060F  76 
0810  2C 
0811  50 


C-67 


Ai 


8086/fc*87/8088  HftCRO  ASSEMBLER  NftRLVNJWNRQE 


64/17/09  PflGE  4 


LUt  OBJ  Lift  SOURCE 


214 

215 

216 

217 

6612 

10 

218 

13 

21 

6814 

7C 

0*15 

2C 

6816 

50 

0817 

21 

0818 

rr 

6819 

'■ 

081ft 

40 

8818 

ID 

08 1C 

21 

6810 

7C 

081E 

yj 

061F 

4F 

0820 

76 

0821 

6F 

0822 

27 

0823 

4F 

219 

220 

8824 

IP 

221 

0825 

34 

0826 

6fl 

0827 

26 

0828 

57 

0829 

IF 

082ft 

54 

0828 

1C 

0*2C 

33 

082D 

6C 

082E 

26 

082F 

57 

0836 

IF 

0831 

41 

8622 

IP 

0832 

32 

08.34 

70 

0835 

26 

0836 

57 

0837 

IF 

0838 

52 

0839 

10 

222 

0830 

31 

083B 

78 

082C 

26 

083P 

57 

0936 

IF 

083F 

47 

•  END 

; START  LEFT  ENVELOPE 

HRE38  OB  350- 410, 1740. 540. 1350, 410, 1740, 420, 1060. 250. 410, 1740> 

470, 1170,660, 1570,470,1170 


•  END 

i  START  “TARGET  LINE* 

HREP38  08  350,640,1520,460.1270,370,1240,350,630,1540,460,1270. 

370, 1610, 350, 620. 1680, 460, 1270, 370, 1220 


HREP39 


08  350, 610, 1600, 460. 1270-  370.  i  070, 350, 660. 1620. 460. 1270. 

370, 1050, 350, 570, 1640, 460. 1270, 370, 1240 


C-68 


04/1?  m  PAGE  4 


am/mr/em  npcm  assembled  narlynjionroe 


l'X  OBJ 


LINE  SOURCE 


0840  10 
0041  30 
0?4;-  ?2 
0043  26 
0844  57 
0845  IF 
0846  45 

8847  10 

8848  2r 
0849  74 
0848  26 
0848  57 
084C  IF 
0840  54 
084E  10 

084F  32 
0850  6C 
«851  27 
0852  5ft 
0853  IF 
0854  4C 
0655  10 
0856  32 
085?  70 
0858  27 
0859  50 
0858  IF 
06 58  49 
08!  <  10 
'>■50  21 

•<:5E  70 
095F  >.? 

0  5fi 
■5-1  If 

■  "E 

■  •.  >0 

30 

0665  72 
0866  27 
086?  50 
0868  IF 
08*.<  45 


0860  If' 
0866  20 
086C  7E 
0860  26 
086E  40 
086f  IF 
0870  26 
0871  46 
0872  45 


223  HREP48 


DB  250, 620. 1540, 470, 1320. 270, 1140, 250, 620, 1600, 470. 1220, 270 
■  1110, 350, 610, 1600, 470, 1220. 270, 1160 


224  HPEP41  0 6  350,600,1620,470.1320  370.1050 


225  END 

226  .START  VFEETr 

227 

228  HREP42  06  250. 400  1760, 460, 1150. 370, 500- 1060, 1650. 1060. 1240, 510 


069 


macro  assembler 


MflPLVN.HO^OE 


04/17/89  PAGE  44 


!.•:»■  OB.* 


LINE  SOURCE 


*«7i  45 
0874  r4 
AP..  S  29 

229  ;  END 

230  ; START  “(LEFT). ‘RIGHT’*" 

221  HREP43  06  350. 440, 1660. 420, 1000, 370, 500- 1140. 1050. 1060, 1240-  510- 

250, 440, 1660, 520  1060, 270. 500, 1220  1110 


0b77  24 
0878  76 
0879  22 
087A  40 
0878  IF 
087C  28 
0870  4C 
087E  45 
087F  4b 
0880  54 
0881  29 
0882  10 
0882  24 
0884  76 
8885  2A 
0886  46 
0887  IF 
0888  29 
0899  5? 


088fi 

0996  47  2<2  HPEP44  DB  1070, 1100, 1240, 510. 250 

086C  48 

0880  54 

888E  29 

038F  ID 


233 

0898 

234 

LflST_OF_HREP 

LABEL  WORD 

235 

236 

8890  E 98600 

237 

GRRPH1 

CALL 

CLEAR. SCREEN 

238 

0892  BE0000 

R 

239 

GRAPH 

NOV 

SI -OFFSET  PIC-POINTS 

8896  B93703 

240 

NOV 

CX,  (OFFSET  LAST-OFFSET  PICPOINTS) 

0899  BAD800 

241 

NOV 

DX.0O8H 

089C  2E8A04 

242 

AGAIN 

NOV 

AL,CS:CSI1 

089F  E86408 

243 

CALL 

COUT 

0882  46 

244 

INC 

SI 

0883  E 88800 

245 

CALL 

0ELAV.2 

0886  E2F4 

246 

LOOP 

AGAIN 

0888  C2 

247 

RET 

248 

0889  E86O00 

249 

GRAPH. VREP: 

CALL 

CLEAR.SC-REEN 

0Mflf  6E2  7@3 

R 

256 

NOV 

SI,  OFFSET  VREP1 

0bMf  899902 

251 

NOV 

CX,  (OFFSET  LAST.OF.VREP-OFFSET  VREP1) 

0962  880800 

252 

NOV 

DX,  0O8H 

8885  2f.o804 

253 

AGN.N.AGN 

NOV 

AL.CSCSII 

0888  E 84800 

254 

CALL 

COUT 

09BE  46 

255 

INC 

SI 

C-70 


4? 


3-i66. 'Sts*.'. '8688  MACRO  ftSSEMPLtP 

HhRLVN.MGNROE 

l.OC  I.®  I 

LINE 

SOURCE 

m§B*.  E6710O 

256 

Oi'BF  £2F4 

257 

WlI  c 

258 

259 

08C2  E3540O 

260 

GRflPH-HREP: 

08CS  8EDO05  P 

261 

08C8  89C002 

262 

08C6  BAO8O0 

263 

08CE  2E8AP4 

264 

AGN2.N-AGN 

0801  E8320B 

265 

0804  48 

266 

0805  £85800 

267 

0808  E2F4 

268 

080ft  C3 

269 

270 

271 

272 

080E-  BAI'CeO 

273 

USART.SET.UP_FO 

0«OE  ROBE 

274 

08E0  EE 

275 

08E 1  BflO40O 

276 

08E4  8004 

277 

08E6  E84100 

278 

08E9  EE 

279 

08Eft  8000 

280 

08EC  E83600 

281 

08EF  EE 

282 

88F0  BADA00 

283 

08F3  8040 

284 

08F5  E83200 

285 

06F8  EE 

286 

08F9  804E 

287 

08FB  E82C00 

288 

08PE  EE 

289 

08FF  6037 

290 

0801  E826O0 

291 

0804  EE 

292 

4405  C3 

293 

294 

0401}  50 

295 

COUT 

*1007  E40E 

2% 

0VER1 

04M  2401 

297 

0408  ?4Ffl 

298 

4400  V: 

29? 

h*<F  EE 

300 

040f  i. 

301 

302 

0410  £4[£ 

203 

CIN 

0412  2402 

304 

0814  74FA 

305 

091 1,  E4i« 

366 

0410  Cl 

307 

388 

0919  8AO800 

309 

CLEAR .SCREEN 

091C  WHO 

310 

fti'17/09  PAGE 


CALL  DELftV_2 
LOOP  AGN-N-AQN 
RET 

CftLL  CLEftP-SCREEN 

MOV  SL  OFFSET  HREP 

HOV  CX,  (OFFSET  LAST-OF.HREP-OFFSET  HPEP) 

MOV  DX.0D8H 

MOV  ftbcsisn 

CALL  COLIT 

INC  SI 

CALL  DELAY-2 

LOOP  AGN2_N.A6N 

RET 


MOV 

OX. TIMER -CNTRL 

NOV 

AL,  CNTR2.M00E 

OUT 

OX,  AL 

MOV 

DX, TIMEP.CNTRL2 

MOV 

AL,  LOW-RDM 

CALL 

DELAY 

OUT 

DX,  AL 

MOV 

AL,  HIGH-ROM 

CALL 

DELAY 

OUT 

DX,  AL 

MOV 

OX,  USAPT .CNTRL 

MOV 

AL,USART-RESET 

CALL 

OELAV 

OUT 

DX,  AL 

HOV 

AL, USART.MODE 

CALL 

DELAY 

OUT 

OX,  AL 

MOV 

AL, USART-CMMNO 

CALL 

DELAY 

OUT 

DX,  AL 

RET 

PUSH 

AX 

IN  AL.  USART.STAP.IS 

AND  AL.i 

JZ  OVER! 

POP  ftx 

OUT  OX,  AL 

RET 

IN  AL,USART-STATUS 

AND  AL,2 

JZ  CIN 

IN  AL,  0DCH 

RET 

MOV  DX.0D8H  ;  THIS  PROCEDURE  CLEARS  THE 

MOW  AL, 250  •  ADM-3  SCREEN 


C-71 


6&bb.'tS8b.V8888 

MACRO  ASSEMBLED 

MARLYN.NGNROE 

U.»  <D6J 

LINE 

SOURCE 

*W1E  E8E5FF 

311 

0h21  6019 

312 

092?  FAE0FF 

313 

*926  E 91100 

314 

315 

8929  C3 

316 

317 

092A  690S00 

318 

DELAY 

0920  E2FE 

319 

TAG 

092F  C? 

320 

321 

0m?0  B8750U 

322 

OaAV.2 

*9ii  48 

323 

AGAIN.AND.AGA1N 

0934  100000 

324 

0937  75FA 

325 

0939  C3 

326 

327 

093A  6850C3 

328 

DELAY .3 : 

0^30  48 

329 

OVER-AND-OVER : 

A9"E  300000 

330 

0941  75FA 

331 

094‘.  EI850C3 

332 

094b  46 

333 

ONE-HORE.TIHE 

0947  300000 

334 

094A  75FA 

335 

094C  C3 

336 

337 

_ 

338 

CODE 

339 

340 

04/1 


CALL  coot 

MOV  AL, 210 

CALL  COLIT 

CALL  DELAY.3  ,  THE  CLEAR  SCREEN  MODE  TAKES 
,  160MS  TO  COMPLETE. 

RET 

MOV  CX,3 

LOOP  TAG 

RET 

MOV  AX,  DELAY.VAL 

DEC  AX. 

CMP  AX,  0 

JNE  AGAIN. AND. AGAIN 

RET 

MOV  AX,  5A000D 

DEC  AX 

CMP  AX,6 

JNE  OVER.AND.OVEP 

MOV  AX,  500000 

DEC  AX 

CMP  AX,0 

JNE  ONE.MORE.TIME 

RET 

ENDS 

00 


ASSEMBLY  COMPLETE,  NO  ERRORS  FOUND 


APPENDIX  D 

COMPUTER  GENERATED  SOUND  SYSTEMS  PROGRAMS 


D-l 


Hsma  sound:  src 


ISIS  1!  MC 43/iJP I  —41  MACRO  ASSEMBLER.  V2  0  PAGE  1 

UJi.  OEM  SEC  SOURCE  STATEMENT 

1  ■  1  SEPTEMBER  1981 

2 
■J 

4  ,  THIS  PROGRAM  WRITTEN  IN  INTEL  8748  ASSEMBLY  LANQI.IAGE  IS  THE  SOURCE 

5  ;  FOR  SOUNDS  PROOUCED  DUPING  fi  SIMULATED  DRAGON  FIRING  AND  RESIDES  IN  EPROM 

6  ,  OF  THE  SOUND  SVSTEM  MIOROOmiTER  (SSM).  THESE  SOUNDS  ARE: 

7 

8  •  1.  GVRO  HIND  UP 

9  ■  2.  LAUNCH  EXPLOSION 

10  ,  3  THRUSTER  FIRINGS 

11  ,  4  IMPACT  EXPLOSIONS 

12  ;  A.  TARGET  HIT 

12  ;  6  TARGET  MISSED 

14 

15 

16  ,  THE  DF5  PROCESSOR  SODS  A  FOUR  BIT  WORD  WHICH  IS  DECODED  6V  THE 

17  ,  SSM  INTO  ONE  OF  THE  ABOVE  SOUNDS  THE  SSM  IN  TURN  PASSES  DATA  BYTES  TO 

18  A  GENERAL  INSTRUMENTS  AY-2-8910  PROGRAMMABLE  SOUND  GENERATOR  <PSG>.  THE 

19  .  PSG  INTERPRETS  14  DATA  BYTES  STORED  IN  THE  LOWER  14  LOCATIONS  OF  AN  ON 
2*  ;  CHIP  16  BYTF.  REGISTER  ARRAY  AS  A  SOUND,  THEREBY  GENERATING  AN  ANALOG 

21  }  SIGNAL 

22 

24 

25  ,  INITIALIZATION  ROUNTIK 

26 


0000 

27 

ORG 

0 

WJ7 

28 

2? 

JMP 

ANIT 

0002 

30 

ORG 

3 

0003  0401 

31 

10 

JMP 

DECOC€ 

0007 

-■c 

11 

ORG 

7 

0007  16C6 

14 

JTF 

TIMER 

35 

«009 

36 

ORG 

89H 

8009  4460 

37  ANIT 

JMP 

CAKAP 

►M0B  65 

38  INIT 

STOP 

TCNT 

B00C  27 

29 

CLR 

A 

>'000  62 

40 

MOV 

T,A 

,  INITIALIZE  TIMER  AND  ENABLE  INTERRUPT 

000E  25 

41 

EN 

TCNT  I 

42 

000F  • f  - 

43 

EN 

I 

■ENABLE  INTERRUPT 

0010  75 

44 

ENT0 

CLK 

; ENABLE  CLOG'  ON  TA 

0011  23FF 

45 

MOV 

A.40FFH 

0013  39 

46 

OUTL 

PI.  A 

, INITIALIZE  PORTS  1  t  2 

A014  3A 

47 

OUTL 

P2>  A 

48 

001;  _30& 

49 

MOV 

A,  WBH 

; INITIALIZE  PORTS  4  *  5 

0017  2C 

50 

MOVD 

P4.  A 

0018  27 

51 

clr 

A 

D-l 

001=1  2D 

52 

MOVD 

P5.A 

■  i  :  II  rfi'S-40  UPI-41  MACRO  ASSEMBLER  V2  i?  FAGE  2 

■ «:  t-  ;  sec*  source  statement 
53 


"Olfi  996F 

54  RESPG 

AlU 

nTIL 

PL  «06FH 

.RESET  PSG'S 

OOt'I  $990 

55 

ORL 

PI. #090H 

% 

.'7 

►wit  -tiBF 

58  PUP 

CAU 

nr*L 

P2. #0BFH 

•  SET  FLIP/FLOPS 

0"20  Sfi40 

50 

OPl 

P 2,  #040H 

60 

6l 


62  ,  ****»*»*****W»****»*****»****«<^**»**#***:f+*»*Mr**iMi*******#*#J(aMt*#iM* 

El 

64  ■  LOOP  ROUTINE  i  E  WAIT  FOR  INTERRUPT 

65 


**<.'  65 

66 

CLP 

F8 

wll  27 

m2 

CLP 

A 

0024  693E 

68 

MOV 

pl  mth 

O026  682F 

60 

MOV 

P0. 102FH 

O028  A0 

70 

MOV 

0PO.fi 

0029  CE 

71 

DEC 

PO 

►w2ti  AO 

72 

MOV 

0P0.A 

Co 

DEC 

R0 

►Vt.C  Hy 

74 

MOV 

0R0.fi 

"0cD  Ml 

75 

nov 

0RL.fi 

»IH^t  10 

76 

INC 

PI 

002F  mi 

77 

MOV 

0P1.M 

mO 76  16 

76 

MOV 

R3.fi 

"0_i  AC 

78 

MOV 

P4.fi 

00  it.  hC> 

■70 

MOV 

P5fi 

O02:  l-j 

01 

SEL 

PB1 

0034  h:j 

32 

MOV 

P0,fi 

06.'5  00 

62 

MOV 

Pl.fi 

"0i6  MM 

64 

MOV 

R2.fi 

Mpiir  ofc 

85 

MOV 

R3.fi 

"6C6  AC 

66 

MOV 

R4.fi 

00"  m  60 

Or 

MOV 

R5.A 

003m  06 

66 

MOV 

P6.A 

0026  OF 

69 

MOV 

R7.fi 

063C  C5 

90 

SEL 

m 

91 

Ovjd’  6c2F 

92  PRONG 

MOV 

P0. #02FH 

00 7 F  r M 

92 

MOV 

A.0P0 

0040  Ceil' 

A 

5Z 

PPfiNG 

0"4."  2,' 

*5 

CLP 

ft 

v*>'4_  rtO 

% 

MOV 

0R0.A 

0044  54c’8 

97 

CALL 

DRAGON 

96 

004*-,  BA2F 

99  WIN 

MOV 

R0.  W2FH 

f  h 

10" 

MOV 

A.0R0 

l¥l4>  l.Poih 

101 

17 

INF1N 

102 

004fc  1404 

107 

CALL 

CHEO 

104 

0040  6820 

105 

MOV 

P0, 1020H 

Otf4F  FO 

106 

MOV 

A.0R0 

*«A'<0  At' 

107 

MOV 

P4,  ft 

■  f>4  GETS  TIME 


02 


r 

I  !c  lc'il  f-'T -4h.  Ltf- 1 -4 1  MfH_ F'U  ASSEMBLES)  V2  0 


i  iji  , j£,  I  5£0  SOURCE  STATEMENT 


0051  5488 

108 

CALL 

POPOP 

I'OV'  Co'S 

109 

12 

SINFIN 

110 

0055  rtf 

iU 

MOV 

R7.A 

0056  6921 

112 

MOV 

Rl> #021H 

O05B  fl 

ii. 

MOV 

A.  API 

0054  Art 

114 

MOV 

R2.A 

005A  L4B4 

115 

CALL 

OELAV 

00V  Art 

116 

MOV 

R2.A 

0050  1464 

117 

CALL 

OELAV 

005F  B8?0 

118 

MOV 

P0,  #0268 

0^01  8921 

119 

MOV 

Ri. #021H 

120 

►•OBI-  Fl 

121  UNFIN 

MOV 

A.0R1 

08t>4  20 

122 

XCH 

A.0R0 

►'065  tf  '2 

125 

OJNZ 

R7,  ANFIN 

000?  B646 

124 

JF0 

INFIN 

006S  05 

125 

SEL 

RBI 

0t)6A  27 

i26 

CLR 

A 

00pB  Hb 

U1 

MOV 

R0,A 

►w:  of. 

128 

MOV 

R3.A 

0060  C5 

129 

SEL 

RB0 

rtwE  05 

170 

CLR 

F0 

006F  45 

131 

CPL 

F0 

1(070  04<<fj 

122 

123 

1HF 

INFIN 

•?rt72  id 

154  ANFIN 

INC 

P0 

007j  19 

125 

INC 

Rl 

«0?4  0465 

136 

JHR 

UNFIN 

137 

"►'76  B82E 

138  SINFIN 

MOV 

R0, I02EH 

►»j78  FA 

139 

MOV 

A.0R0 

0079  C67E 

140 

JZ 

SAFON 

007B  Ah 

141 

MOV 

P2.fi 

lm7C  i4Bf 

142 

CALL 

i'ALAV 

>i0,  t  8820 

14?  SAFON 

MOV 

RO. #02DH 

n080  F0 

144 

MOV 

A.0R0 

0081  ',667 

145 

JZ 

SAVOB 

0083  8HFF 

146 

MOV 

R2..  I0FFH 

0085  14BF 

147 

CALL 

DALAV 

(1087  05 

148  5AVQ8 

SEL 

RBI 

1.1088  FB 

149 

MOV 

A.P5 

00c.  4  75 

150 

SEL 

RB0 

tirtbh  f:c2f 

151 

MOV 

P0. *02EH 

0Hnl‘  H0 

152 

MOV 

0R0.A 

>(*’  :(•  [>'• 

153 

SEL 

RBI 

F8 

154 

MOV 

A..R0 

>Im,:F  1.5 

155 

SEL 

PB0 

v\y>  -»i  (ft 

156 

OEC 

R0 

PikM 

157 

MOV 

0P0.  A 

w??.  ^44t 

158 

IMP 

INFIN 

IV* 

i60  CHE  Cl 

DEC 

H 

ito4cJ 

1*5 1 

TNZ 

CHAF 

*^q:  t;  *‘  * 

02 

MOV 

P0.  #03EH 

PAGE  3 


.  R7  GETS  COUNT 


•LOCATION  OF  RB1R3  PPEV10US 


LOCATION  OF  RB1R0  PREVIOUS 


D-3 


d  >  -1  -  .A 


-'•Is-II  MCS-46/UPI-41  NftCRO  hS5EH6l£S. 


FftGE  4 


■2  e 


lOC  OBJ 

SEfJ 

SOURCE  STATEMENT 

0099  f-ii 

16] 

MOV 

A.0R0 

*104H  96ft: 

164 

!N2 

C'EXO 

W9C  it 

165 

INC. 

P0 

1  lOt'C*  FU 

166 

H0« 

M.0R0 

Hlj^E  tt‘F  £ 

16? 

JN2 

HEXO 

00H0  C," 

168  CHfik 

169 

PETR 

00A1  16 

176  DEXO 

INC 

R0 

0002  £0 

171 

MOV 

ft,  0R0 

0*10]  1.002 

172 

12 

DEXftft 

►i*ih5  4460 

17] 

IMP 

CflKflP 

00ft?  14fiF 

174  DEXftft 

CALL 

GETTft 

00ft9  447? 

175 

JMP 

DUDEX 

176 

OOmB  14flF 

177  HEXQ 

CALL 

GETTft 

00AO  445m 

178 

IMP 

HI  TEX 

179 

00ftF  B820 

186  GETTft 

MOV 

P0,  #026H 

0061  FO 

181 

MOV 

ft,  @R0 

0062  ftC 

182 

MOV 

P4,  ft 

0063  y] 

188 

PETR 

184 

185 

186  •  **************  n*******************:*************************************** 

187 

188.  ■ 

OELftY  SU6RC4.iT  I NES 

189 

196 

0064  6508 

191  OELflV 

MOV 

PI,  #8  ,  OELftY  =  P2  X 

01  SEC 

0066  68FF 

192  LOOPi 

MOV 

R0,  #0FFH 

0068  E868 

193  L00P2 

DJN2 

R8,  LOOP 2 

0066  E966 

194 

DJNZ 

Rl,  LOOP  1 

006C  Eft64 

195 

DJNZ 

R2,  DElfiV 

406E  *3 

196 

RETR 

197 

006F  68 C6 

198  DAlftY 

MOV 

P'9,  #€N3SH  .  DftLftV  =  F:2  X 

001  SEC 

00C1  E6l1 

199  DLV 

DJNZ 

R8  DLV 

06C2  EftEF 

200 

DJNZ 

P2.  DftLftV 

00C5  83 

201 

RETR 

202 

20] 

204 


00i36  D5 

205 

206  • 

2«7 

208  , 

209  , 

210  , 

211 

212 

213  TIMER 

TIMER  INTERPUPT  SERVICE  ROUTINE 

THE  TIMER  INCREMENTS  EVERY  80USEC  CT) 
R4  INCREMENTS  EVERY  20MSEC 

R5  INCREMENTS  EVERY  5.  24  SEC 

SEL  RBI 

90C7  HO 

214 

MOV 

R5.  ft 

00C8  1C 

215 

INC 

R4 

H0C9  lr 

216 

217 

INC 

D-3 

R6 

i  ■*+*  S'.mj  0  phGE 


■r 

SOURCE 

STnTEKE! 

.. 

..1' 

MC  V 

r<  vk 

2  i  -4 

IN? 

Ot  lO 

„  • 

22* 

INC 

2c  i  0E.L-J 

HO'' 

».  tx;. 

-v 

tfrfif 

_i,  _ 

RE 

2i>.  ***’♦  «  f  *■**  ♦♦♦♦-*  ;M  1 T-  ** +  ******  ************************ ***********f:********* 

CC  ' 

:,v  ■  EatERNhl  INTERRUPT  SERVICE  ROUTINE  DECODE  LOWER  i  BITS  OF  4  BIT 
22P  WORD  PROM  OPS  PROCESSOR  FLIP/FLOP'S  LATCH  WORD  ONTO  PORT  i 


200 

,51 


*'k« 

55,  DECODE 

StL 

FBI 

MO‘« 

R5,  6 

VI-1 

w .  4 

In 

0-  PI 

‘Vis  - ,  ►<  7 

:-s 

ANL 

P- #7 

r 

1  ^ 

DRACO 

000 

INTI  BANG 

*} ’ 

TEC 

4 

...  -  -  1  ’f 

'•gv 

Rl,  I02EH 

‘V  4 

-40 

1, 

DUDE 

,  001 

GND  DUD 

•>.'L 

24  i 

DEC 

A 

•'Ol'L  '.-  CC- 

'4  .  • 

1? 

[•UDEX1 

i  010 

GND  EXPLO 

»*»4o  * 

^4  . 

DEC 

n 

.VI, : :  .  ./t. 

■MW 

17 

D0DEX1 

011 

MISS  EXPLO 

.vr  .  • 

2“c, 

DEC 

A 

J  4E 

;7 

HITE1 

100 

HIT  EXPLO 

,4? 

DEC 

H 

2  4P 

JZ 

ROPOl 

101 

ROCK  POP 

24? 

‘••M  •  -4L  • 

500 

JMP 

PiJRp 

201 

-52  DUt€Xl 

mc <■••;-: 

4.  MRy 

.  STOP  TIMER 

■.  '400 

25? 

IMP 

DO0EXO 

»Vff  r  - 

554  HITE1 

mu'-x 

Pi-  0P0 

.  STOP  TIMER 

■  ,-r *  401 

-rCC 

C  JJ 

IMP- 

HITE 

^Hflf  i  ^4.1'j 

256  R0P01 

IMP 

POPO 

257 

258  DRAG0 

MOV 

PL  I02FH 

PSGil 

*  -  ’•  :  . 

25? 

INC 

API 

tV'f-;.  -44*< 

260 

IMP 

PUPPET 

kVir  * 

261  DuCE 

INC 

C‘P1 

.-.v  < 

262 

IN'. 

Rl 

,  ; 

INC 

Afil 

•  i  r "  ’ 

wK  4 

MOV 

R'L  I02FH 

.sV\.  [; 

IN* 

API 

1  ■* 

•  rR 

iMP 

FUPP 

PSG»2 

ii 

■*  *  DUDEX0 

INC 

541 

.'  **  i  -4  *' 

IMP 

POPO 

PSGP2 

»*>!  ■  4  • 

>.4  MITE 

INC 

Rl 

. .  w 

_  •  ’ 

INi" 

HP  1 

PSb»2 

44  ► 

1 

MOW 

PL  «02FH 

iw 

HR1 

Sih-Ii  HrS'4SWI-4i  Mk-.RO  ASSEMBLER.  V2 8 
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1*11  .  -t  l 

7F0 

SOURCE  STATEMENT 

Fl 

273 

274 

MOV 

A- 0P1 

010?  tin 

27S 

MOV 

R2-A 

•  R2  GETS  COUNT 

010A  6920 

276 

MOV 

Rl- #020H 

,Ri  GETS  ADDRESS 

•T10C  FC 

277 

MOV 

A.-R4 

-ACC  GETS  TIME 

278 

BlAO  Eti  12 

270  PUSS 

DJNZ 

P2  POSS 

FtlnF  hi 

280 

NOV 

0P1.-A 

•1110  2415 

281 

jhp 

PASS 

282 

••Jli2  1.* 

282  POSS: 

INC 

PI 

•ill'  2400 

284 

IMP 

PUSS 

288 

••!  !■  sc  00 

288  PASS 

MOV 

R4,  40 

►,*iir  fr' 

287  PUPP 

MOV 

A  R5 

0118  fr. 

288 

SEL 

RB0 

0110  !■ 

280 

RETP 

200 

tfl'A  86  !t 

201  PUPPET 

INI 

POKEP 

An  ;*»i. 

202 

IMP 

PUPP 

•'ill  2'. 0? 

282  PuKEP 

MOV 

A.  *8 

ML20  or 

204 

MOV 

PSN- A 

0121  i? 

295 

DIE 

I 

•Ji-ii  Em<j4 

2% 

MOV 

R2- *1080 

01*4  14B4 

297 

CALL 

C€LAV 

01  >►.  040f. 

298 

TAP 

INIT 

299 

300 

j01  .  ««***»**»»***»*******»»* *»*t********#******#*****U********,tf.**<L*********** 

202 

702  - 

SUBROUTINE  TO  CHECK  TIMER  AND  GIVE  ASSOCIATED  DELAY  AND  AMPLITUDE 

304  . 

DECAY 

305 

0L’8  ,  j 

306  TSTR45 

SEL 

R60 

0120  BB00 

307 

MOV 

R2-  #0 

nl2b'  6E0F 

308 

MOV 

R6-40FH 

012D  BF00 

309 

MOV 

R7,#0 

012F  05 

310 

SEL 

PB1 

-  CUMULATIVE  DELAY  SO  FAR 

0180  Fe 

311 

MOV 

A,  CS 

0121  C5 

312 

SEL 

R88 

01.'2  C627 

213 

JZ 

TARC 

0124  Ah 

314 

MOV 

P2-A 

01'5  14BF 

315 

CALL 

DALAV 

01:7  [•;, 

216  TARC 

SEL 

RBI 

0128  F8 

317 

MG'1 

A,  P0 

0120  C5 

318 

SEL 

RE« 

0138  C64C 

319 

JZ 

TESTR4 

018C  BFfft 

320 

MOV 

P2,  WFFH 

012E  14EF 

321 

CALL 

DALAV 

•1140  24-it. 

222 

JMP 

TESTR4 

223  - 

IF  R5  =  1  THEN  FLIGHT  TIME  =  5  243SEC 

324  ■ 

AT  LEAST  THEN  DELAY  =  1  252SEC 

325 

326  - 

IF  R5  -  2  THEN  FLIGHT  TIME  =  10  486SEC 

227 

AT  LEAST.  THEN  DELAY  =  2  704SEC 

t 


i 


HflCP 0  ^SErtBLt?- 
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t.H 


Stilt 


SOORCE  STATEMENT 


'  ?y 


IL'? 


y>o  TOR 

CLR 

- 

».U*#  ft 

22 1 

MOV 

m  R2 

•U-W  1**' 

332 

SEL 

RBI 

#*  sc 

<2; 

OK- 

r.RI 

^14r  Mt 

234 

MOV 

R3-R 

ni4«' 

'-n-2 

TORE 

:>. 

INC 

RO 

U  i 

: V,'  Wr 

StL 

m 

- 

“..-0 

340 

RETP 

.  4>  '  j 

341  TE5TR.4 

SEl 

REO 

‘  '  . 

2.4  2 

MOV 

h,P4 

»1  ,  ■  .  r.y\ 

343 

JB7 

BIT? 

„‘Lr.'w 

344  JP6 

)B6 

BIT6 

irt 

345  TP5 

165 

6!T5 

3  46  TF'4 

JB4 

6iT4 

.',"’1 

34;  ,iF'3 

J62 

61 T3 

■  V* 

340  )P2 

J62 

BIT? 

349  JPi 

161 

BIT1 

:.K* 

350  JPO 

'60 

BIT* 

oi ->E  ■*’. 

351 

252 

IMP 

TftPHP 

>•!*.«  ;  >"* 

52  £:1TT 

n(tv 

R2.  *670 

•  i.'  .i  .  4f  4 

354 

■  61.1 

DELAY 

^  i  H  0  ;p-v 

255 

MUV 

R2  ■  #6 

OlFF  l4tr 

56 

>' OU¬ 

OftLHV 

:  t-44 

,57 

MOV 

R3,  #660 

■  1 :  r.M  i.400 

358 

259 

IMP 

IP6 

■  •  1  ■-•*  f-R2) 

TOO  EiT6 
361  ■ 

MOV 

P2- #330 

•  1 1  *.  r  ,4(4 

362 

CRLl 

l€LhV 

01  0 

363 

mov 

R2,  #8 

Oli  2  i.46F 

364 

COLL 

DflLRV 

•n.*4  fe 

365 

MOV 

R.R3 

Mtrs  0322 

2-66 

616- 

H.  #340 

oi r:  he 

367 

MOV 

R3-R 

OLo  EC 

3o6 

MOV 

R,R4 

0 :  "i  4'  v. 

26.4 

3  7H 

IMP 

JP5 

t 

-  2'i  6175 

MOV 

R2,  #1690 

,  'i1  !->t F 

CALL 

ORLRV 

*;  j.  t 

:  74 

MOV 

R.R7 

1  xvi  .4:11 

:,-5 

Hi'0 

6- #170 

Hi'ii'  Hfc 

376 

MO'. 

R3.M 

r • 

377 

MOV 

R,R4 

»*!r.4  4^4 

378 

IMP 

IP4 

t.'f  >4 

,-H  f.;T4 

4(0.’ 

R2.  #841. 

-  14-  1 

“'LL 

DALAV 

> '  j  <\h  ^  ■  ’ 

‘-U2-V 

H  F2 

pms  keeps  increnentrl  eclav 


.RB1P3  HOLDS  CUHULfiTIVE  PELRV 


. FOP  BIT  7  TRAVEL  -  2  621 SEC 
. THEREFORE  DEl-w  -  6765EC 


.FOP  EiT  i  'EmVEL  -  1  3 11  SEC 
THEREFORE  i€lftV  =  338SEC 


,  PfiR  BIT  5  TRAVEL  -  655?tC 
THEREFORE  T€lhV  -  1696EC 


::?5EC  DELAY  =  0845EC 


A 


■  TRAVEL  = 


0-6 


-1S-H  HC3-4&/UH-41  HrtCPO  ftSSEHBLEP.  V2  0 


P’R'jE  8 


,  06  I  EEQ  SOURCE  STATEMENT 

81-E  0:0V  3(_  ADO  4  ■  490 

0160  He  264  NOV  P3,A 

wi.dE  FC  185  NOV  0.P4 

•.*i8F  2456  188  JNP  Jr" 

187 

Hl9l  e^h  188  BITS  MOV  TRftVEL  =  164SEC  DELFW  =  W2SEC 

0193  14cF  188  CALL  DftLftV 

-J195  F6  390  NOV  ft,  PC 

0l9e  8184  191  ADO  ft,  #4 

»ji«6  0e  192  MOV  P3.A 

■  u9:'  ;  391  MOV  ft.  R4 

MX -ft  245e  394  JNP  rp2 

195 

01-.  cl 5  198  6112  MOV  R2,#210  ■  TRftVEL  =  082SEC  DELAV  =  021SEC 

0x9fc  14c  197  CmLl  DftLftV 

0ift0  IF-  198  INC  PI 

0161  IE  199  INC  S3 

0182  Ff  480  MOV  ft.  F'4 

0161  2438  401  IMP  JF'l 

402 

h1  65  660E  402  B1T1  MOV  PI  *110  .  TPftVEL  =  041SEC  DELftV  =  011SEC 

0167  !46F  464  CALL  DftLftV 

0169  18  405  INC  PI 

010H  F'  406  MOV  fi.P4 

nine  24 5C  487  IMP  JP0 

406 

HlftO  6605  409  BITE'  MOV  P2-H50  ,  TRftVEL  =  020SEC  OELftV  =  005SEC- 

ftlnF  n«F  410  CALL  DftLftV 

0161  If  411  INC  PI 

412 

413 

414  ,  AMPLITUDE  OECftV  IS  DEPENDENT  ON  THE  TOTAL  TIME  STORED 

415  ■  IN  REGISTERS  P61P6  (20  MSEC  PER  BIT"'  AND  PB1R7 

416 

417 


0162  05 

418  TftRftP 

SEL 

RBI 

01B3  FF 

419 

MOV 

ft,  R7 

01B4  C5 

420 

sa 

RB8 

0165  C6C0 

421 

JZ 

TRftP 

0167  87 

422 

DEC 

ft 

0166  tefcf 

422 

JZ 

TRIP 

ftlEft  6E02 

424 

MOV 

P6,  #2 

ol6v  x442 

425 

IMF1 

TAP 

016E  BEOS 

426  TRIP 

MOV 

R6,*8 

01C0  05 

427  TRftP 

SEL 

RBI 

01C1  FE 

428 

MOV 

ft.  Re 

ftlt  2  C5 

429 

SEL 

R60 

Oil.  1  FJOF 

430 

JB7 

BflT? 

0l.'5  02Ee 

431  P66 

JB6 

BftT6 

».  62EF 

422  PB5 

JB5 

BftT5 

01.  -  92F7 

431  P84 

JB4 

BAT  4 

HUS  72FF 

414  PB2 

JB2 

BflTl 

01.  0  5205 

435  PB2 

JB2 

BftT21 

61CF  22D7 

426  PB1 

JB1 

BATH 

0101  12D9 

417  P68 

JBO 

B6T01 

.  TPftva=16  486  SEC 


PAGE  ? 


i 


w'i-4i  11ACPO  ASSEnBi.tP- 


■p  ;th;ehent 


.  . 

4_>6 

;.-4 

TPAuf 

42? 

.1  „  ' 

440  BflTcl 

■Hr 

BAT2 

.*U  *  «**♦»# 

44  i  BATii 

IMF- 

Bmi 

441^ 

44c:'  8AT01 
44- 

I  HP 

BAT8 

>:u»-  lr 

444  PBV 

JtL 

RBI 

445 

MOV 

A.  P6 

W;!V 

448 

6El 

P6A 

‘Ht/E  *-■ 

447 

PETR 

448 

tiLit  r 

44 ‘H  6AT< 

DEC 

P6 

t’littf  L  - 

450 

DEC 

P0 

rfUi  i.c 

451 

DEC 

P0. 

*i,E„  t-r.:h 

452 

MOV 

07  *4 2D 

-  4i. 

452 

IMP 

PBt 

454 

•  ,r>-  ».  t 

4V,  tff'0 

e*ec 

P0 

‘i : t. , 

450 

MOV 

A.  1570 

h]  *  «  +.? 

457 

ado 

4.P7 

•  •  ►  n  n*" 

4r.P 

MOV 

='7.  A 

•’ILr-  *.t 

45? 

CALL 

PBV 

.*»f{  . 

408 

IMP 

PB5 

461 

v>\:>  fc 

462  BAT5 

MOV 

A.  #660 

»ilrl  ** 

46; 

ftDO 

A,  P7 

►i  it .  ->• 

464 

MOV 

R7.  A 

•'i  1  - . 

4r.5 

CALL 

PBV 

1 1  r "  4»  r* 

466 

.IMP 

PB4 

46. 

>Ur/  .  ~  . 

466  B0T4 

MOV 

A. #230 

H  ‘  ►  ♦  ; 

40? 

HOC' 

A.P7 

Ml 

470 

MOV 

P7.  A 

«• 

Mirt  "4l*0 

471 

CALL 

PBV 

*i  .►  r  .  *  r 

472 

IMF 

PBS 

•** 

4": 

0  irf  i  ‘ .  i*1 

474  E'07 ; 

MOV 

A.  I16D 

■m 

vl/01  *--r 

4  75 

HOC' 

A,  R7 

470 

MOV 

ft?.  A 

820^  i4t*6 

477 

CALL 

PBV 

«285  24CD 

476 

IMP 

PB2 

\ 

47? 

,«  .  .  ^  Mr! 

480  BRT2 

MOV 

A.  #8 

10 

»\  vl  4  r.f 

461 

HOC- 

H.  P7 

4 

PC 

462 

MOV 

P7.  A 

►U06  -41* 

48" 

CALL 

PBV 

«  ii[i  .4'  f 

4R4 

IMP 

P61 

f 

^ kV  )r 
*•  i* 
vV'i  •-* 
u.  [2  ]? 
•Vi 

1.  .!- 


465 

486  BAT  i 

487 

488 
48"? 

4->A 
J--.1 
44c 


FATA 


INC 

INC 

INC 

INC 

IMP 

INC 


K, 

p: 

p? 

R7 

P88 

P7 


D-8 


10 


1!  M'S-48.UPI-4i  MACRO  ASSEMBLER..  V2.B  PAGE 

UX  ut  i  5EP  SOURCE  STATEMENT 


•>. 1- 

493 

inc 

R7 

494 

495 

*01.  PF 

496  TRAMP' 

497 

MOV 

A..R7 

496  ■ 

FOR  FURTHER.  AMPLITUDE  CONTROL  R7  IS  NOW  TESTED 

499 

0218  faE 

JB7 

8EA 

0clM  0225 

501  TAPI 

JB6 

BEB 

021C  2442 

502 

JMP 

TAR 

503 


621E  CE 

504  6EA 

DEC 

R6 

02 IF  537F 

505 

am 

nrfL 

A/  I07FH 

0221  0336 

506 

ADD 

A,*54D 

0223  441 A 

567 

IMF 

TAP1 

508 

0^25  CE 

509  BEB 

DEC 

R6 

0226  2442 

510 

JMP 

TAR 

511 

512 
512 

514 

515 

516  ■ 

517 

518 


0^28  55 

519  DRAGON. 

520 

STRT 

T 

02  J  -.A 

521 

MOV’X 

A.0P0 

522 

0cc;M  996F 

523 

ANL 

Pi;*06FH 

02,'"  8990 

724 

ORL 

rl  -  WWn 

525 

022E  9A OF 

526 

Oil] 

nm. 

P2, 10DFH 

527 

528  ■ 

LOW* 

PSG  #1 

529 

530 

0230  6820 

531 

MOV 

R0j  #020H 

0222  &FC0 

532 

MOV 

R7. 103000 

533 

*•.'.14  543B 

534 

CALL 

LOORAM 

735 

0226  7400 

576 

CALL 

L0ADP1 

537 

02l-o  6A30 

538 

ORL 

P2.R030H 

533 

0t"A  0’ 

540 

PETR 

541 

*'2.6  2150 

542  LODRAM 

MOV 

A.  #1350 

0231'  A0 

543 

MOV 

0R0,A 

02 <E  16 

544 

INC 

P0 

02. F  100 

745 

MOV 

h»#150 

02<*1  00 

546 

MOV 

0R0,A 

02-' 

547 

INC 

R0 

-  1280M5EC 
♦  548MSEC 


■START  TIMER 

;  RESET  f'SGS 
■  SELECT  NO.  1 

iBANG  ON  CHANNELS  A,  8  4  C  OF  PSGil 

, TRI-STATE 

;RB 

•  R1 


.  ******************* f»*******+*i*iM‘********+**»++****»***iMi*»*'Mi»>MuMt*iMt*** 

ROUTINE  TO  INITIATE  INTERNAL  TIHEP  *  GIVE 
INITIAL  LAUNCH  EXPLOSION 


« 

1 


.1  ** -  if '-41  MhlRu  fiSSEM6LE8.  Vt  0 


PfiGE  11 


■«  1  *  1  ■£ T 

-7£C 

SOURCE  STmTEHENT 

>V4  Sf' 

548 

MOV 

8.  #1350 

O.lh*'  no 

545 

MOV 

080.  ft 

•R2 

Oi*r  lo 

550 

INC 

R0 

02*  7  i'v8D 

551 

MOV 

ft-  #150 

014  >  rtO 

552 

MOV 

0R0.ft 

•  R2 

5.:'4M  lx 

553 

INC 

RO 

tt.-F  ;■'% 

554 

MOV 

ft.  #17 SO 

*’  4;  H*’ 

555 

mjv 

'*80.  ft 

•  R4 

*  ;? 

558 

INC 

RO 

►I; 

557 

MOV 

ft.  #150 

»i. 1  i  nn 

558 

MOV 

0R0.  ft 

.  R5 

>Ca  is 

559 

INC 

P0 

**..  IMF 

5o  0 

MOV 

ft. #370 

561 

MOV 

0P&H 

86 

i3 

c  •  •. 

INC 

P0 

Hfc‘r*r  *  r 

563 

MOV 

ft.  F' 

56-4 

MOV 

0P0.  ft 

•  R7 

i- 

565 

INC 

F0 

*’  *-n  ?-ie 

566 

MOV 

ft..  #20C! 

W  t’  mi 

5t>r 

MOV 

I«F'0.  ft 

•  R8 

L’  irf 

568 

INC 

P0 

j£  HW 

569 

MOV 

i‘R0.  ft 

89 

.•>*£  li 

57y 

INC 

F0 

»\'  km  n»i 

571 

MOV 

l*f  0.  ft 

•  Pie 

•jiM  1* 

572 

INC 

80 

tteW  i  f  F 

sr: 

MOV 

ft. #0FFH 

rtt*-  4  nvi 

574 

MOV 

0P0.fl 

•Rli 

.Li' 

775 

INC 

80 

/iJF 

576 

MOV 

ft. #0779 

■3.- »  ?.  MM 

r,?7 

MOV 

ftP0.fi 

;R12 

*#•9  lv 

578 

INC 

P0 

*3.<>H  27 

579 

LR 

ft 

rift 

580 

MOV 

rape,  ft 

.PIS 

OtiNi*  i* ' 

581 

RCTR 

582 


584  .****»  **  *******  **************  *******************  ************************* 

565 

586  THIS  POUTINE  WHITS  FOP  fi  SYSTEM  RESET  TO  STfiPT  fi  HEW  FLIGHT. 

587 


02$D  l.<M 

588  ifttnf 

MW 

ft,  18 

►i^ft.ft  ’  • 

589 

MOV 

PSW.fi 

0^70  i;. 

590 

OIS 

I 

0871  t;ft75 

591  GPfiVt 

'NT 

COKOP 

4471 

5  L 

IMF 

BRWE 

.8  '5  040fi 

592  1  0#  OF 

w 

INIT 

5*4 

595 

596  ** **  **********************  * ****************** *************************** 

59' 

598  THIS  ROUTINE  PRODUCES  fl  DOUBLE  EXPLOSION  WHEN  MISSILE 

595  HftS  MISSED  THE  TflPGET 


$00 

601  DUOEX  9NL 
60*. 


*.  7  ?Ht.f 


■SELECT  PSG  #2 


D-10 


■'-■11  Hi  4- 

061-41  HHr.RO  ASSEMBLER. 

V2  8 

PflGE  12 

u>:  no  * 

SEO 

SOURCE 

STATEMENT 

**279  3426 

663 

CALI 

TSTR45 

,  CALL  DELftV  AN[>  AMPLITUDE 

664 

276  6D*'<2 

605 

MOV 

P5.  #2 

,  LOOP  COUNTER  FOR  AMP  DECflV 

606 

02 7D  65 

687 

CLP 

FI 

608 

2,7t  397F 

689  CARET 

7,111 

nNL 

PI, I87FH 

6280  8980 

618 

ORL 

PI, I080H 

■RESET  CSG  #2 

611 

■'282  6830 

612 

MOV 

60,  #030H 

L64  BFC9 

613 

MOV 

R7,  #3110 

» MISS  ON  CHANNEL  E  F  C  ONLY  -PS6#2) 

614 

0266  5436 

615 

CALL 

LOORAM 

i266  7492 

616 

CALL 

HITflMP 

6260  742.- 

617 

CALL 

L0ADP2 

616 

3281 

619 

MOV 

R2,  #0FFH 

028E  146F 

626 

CALL 

DALftV 

621 

029*3  '696 

622 

JF1 

JIERT 

02?2  65 

623 

CPL 

FI 

0293  CD 

624 

DEC 

P5 

0294  447E 

625 

IMP 

CARET 

626 

0296  6030 

627  JIERT 
626 

ORL 

P2» #030H 

, TRI-STftTE 

6298  4461 

629 

JHP 

CftKftP 

630 

631 

632  ■  ******m***********#*******w***********w*******#*****w********w****** 

633 

634  THIS  ROUTINE  PRODUCES  ft  TRIPLE  EXPLOSION  WHEN  MISSILE 

635  ■  HITS  TIC  TARGET 


ck'M: 

637  HITEX 
639 

MOV 

R5,#3 

•  LOOP  COUNTER 

*}'  •*(  4  />■ 

63  9 

CALL 

TSTP45 

; CALL  DELAY  AND  AMPLITUDE 

648 

0<:.C  -m£F 

641  KAKOT 

642 

ANL 

P2, 18EFH 

■■SELECT  PSQ  #2 

8200  997F 

643 

ANL 

PI,  #07FH 

02A2  8960 

644 

ORL 

PI,  #0860 

■RESET  PSG  12 

645 

02A4  6830 

646 

MOV 

P0.#030H 

«2A6  EF*.  -> 

647 

MOV 

R7, #3110 

; HIT  ON  CHANNEL  B  «  C  ONLY  CPSG#2 

648 

A2A8  V.E 

649 

CALL 

LODRAM 

02AA  7492 

656 

CALL 

HITAMP 

Mi-ii.  "4^7 

651 

CALL 

L0ADP2 

652 

0201  -H~0 

653 

ORL 

P2,  #030H 

654 

*'.  F0  60FF 

655 

MW 

R2,  #6FFH 

02B2  W 

656 

CALL 

OALAV 

657 

--i  i  -4i  MACRO  ASSEMBLER*  */2'  0  Fhi^E  13 


>\  l  ift  I 

•EO 

SOURCE  STATEMENT 

‘it  4  '  •  4 

6jE- 

r.?5 

OJNZ 

P5,  KflKOT 

1.  ft*  44*  A 

666 

JHP 

CARAP 

661 

662 


663  .  +*******************************************,(:.***  *»**»♦»*******»********* 

884 

885  . 

THIS 

ROUTINE  PRODUCES  A  SOUND  SIMULATING  THE  IGNITION  OF  A 

888 

SIDE  POCKET  THRUSTER  PAIR. 

6*67 

M^r  .  •  _  «*i  • 

888  WOP 

CALL 

T5TR45 

88? 

870 

ANi 

PL  #87FH 

ll/Ki'  -.4 -.yi 

871 

OPL 

Pi, I080H 

-  RESET  PSG  #2 

872 

•  l.  ;-.E  ^AEr 

873 

ANL 

F2, 18EFA 

-  SELECT  PSG  #2 

874 

» '  •  » ’ 

*.~5 

MO- 

P0. 4838H 

vi.»  _  > ’ 

878 

HO'.- 

A.  #1358* 

»»■£»_  4  K* 

8” 

NOv 

I4P0.  ft 

;R0 

:'  J  16 

87s 

INC 

P8 

>'iC6  2300 

87? 

MOV 

A,  #150 

82CS  AM 

880 

Mi>’ 

0R0.fi 

•R1 

AST r  1- 

881 

INC 

P8 

Mil u'i  __5f> 

88; 

MO’ 

-■ #1350 

<tiV.  'll’ 

8?'. 

MCV 

0R0,  A 

■  F;2 

►’il.L'  I 

884 

IN7 

F8 

82-.  E  S.t'i' 

885 

M0U 

A-  #150 

0dL  ^  ***) 

ft-88 

NO'/ 

0R8,  A 

•  P3 

82! -1  1: 

887 

INC 

P8 

•L  2  :CD 

88/ 

MOV 

A,  #1350 

Ai.04  AM 

68? 

MOV 

0R0.A 

-  P4 

y2Dr  ;- 

890 

INC 

P8 

Ail’V'  .  H{- 

8?1 

MOV 

A. #150 

8206  Hi' 

692 

MO-' 

0P0.A 

•  P5 

0209  IS 

6?S 

INS 

P0 

:.  A  1* 

8?4 

MOV 

A- #370 

A;l»  n>.i 

8?5 

MOV 

0P8>  A 

■  P6 

*210  16 

696 

INC 

R0 

82C€  S' ft A 

697 

MOV 

A,  #3660 

A2E8  AM 

696 

MOV 

0R0,  A 

-  P7  CHANNEL  A  ONLY  *PSG#2) 

m;ei  is 

699 

INC 

P0 

02E2  2/1 A 

700 

MOV 

A,  #01 8H 

82E4  AO 

701 

MOV 

0R0.A 

;R8 

*vE5  IS 

782 

INC 

R8 

■’Ito  AO 

783 

MOV 

0R0-A 

;P9 

A2E7  lc 

784 

INC 

P8 

02E8  mu 

785 

MO"’ 

0R0,  A 

,  P10 

A/t5*  1ft 

786 

INC 

P0 

A2tA  2.-A1 

707 

MOV 

a  #1610 

k  >  i  mA 

T06 

MOV 

0P8.A 

•  Pll 

-t'tf-  iS 

78? 

INC 

P0 

•IwtE  _tf  \ 

710 

MOV 

A-  #30 

A2F8  AO 

711 

MOV 

0P0.A 

;  P12 

0"1  IS 

'12 

INC 

P8 

## 

m 


AJSluSt 


!  ii  ■j_48/UF' 1—41  MACRO  ASSEMBLER,  V2  0 


PflGE  14 


l or  ■ 

SEf 

SOURCE 

STATEMENT 

*kF2  r 

7r 

lLR 

ft 

ivf;.  am 

714 

MOV 

0R0.fi  ;?13 

717 

.'IP  4  744n 

716 

'7  Fill 

ROPAMP 

07F0  ’4 2> 

717 

FALL 

L0ADP2 

6634 

714 

ORL 

P2, I030H 

«..'  i  tv.lF 

HOY 

R0,  *02FH 

f-if 

7  22 

MOV 

ft.  0R8 

i2H* 

723 

DEC 

ft 

y.Ft  Ay 

724 

MOV 

0R8.fi 

'OFF  93 

~26 

RETR 

7.8 

720  •  ***+**********-****************************************x*** ************* 

730 

731  • 

SUBROUTINE  TO  LOAD  PSG#1  FROM  MEMORY  LOCATIONS 

722  , 

20H  TO  20H  CORRESPONDING  TO  REGISTERS  8  TO  13  OF  PSG#1 

733 

0>0t?  -tIiF 

724  LOAEfl 

ftNL 

P2,#07FH 

735 

*i“  y  j  f 

736 

SEL 

RB0 

8303  6020 

737 

MOV 

Rl,  I02OH 

0385  6A00 

738 

MOV 

R2,*0 

0307  EP0E 

739 

MOV 

R3,  #14D 

740 

4300  74] h 

741  IACKO 

CALL 

LADP1 

030B  E6i6 

742 

DJNZ 

R3.  THERE 

070f>  6A80 

74  3 

ORL 

P2,  #080H 

030f  e?ii> 

744 

MOV 

Rl,  R62DH 

0311  27 

745 

CLP 

ft 

0212  hi 

746 

MOV 

0R1,  ft 

0312  10 

747 

INC 

Rl 

0314  ftl 

748 

MOV 

0Rl.fi 

749 

’.17  03 

750 

RETR 

751 

0316  10 

752  THERE 

INC 

Rl 

0317  1ft 

753 

INC 

R2 

0716  6406 

754 

JMP 

JflCKO 

755 

031ft  6020 

756  LfiOPl 

ORL 

PI, *020H 

4. 1C  Fri 

757 

MOV 

ft,  R2 

"310  00 

758 

MOW 

0R0,  ft 

02  IE  00('F 

759 

ANL 

P1.MOFH 

0320  ’1 

760 

MOV 

ft,  0R1 

422 i  0y 

761 

MOW 

0R0,  ft 

472.  0* 

7  62 

RETR 

763 

7n4 

7  c- 5  •  *********************************************************************** 

’06 


SUBROUTINE  TO  LOAD  PSGI2  FROM  MEMORY  LOCATIONS 


D-13 
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SOURCE  STATEMENT 

SO  TO  50  COP  RESPOND  ING  TO  REGISTERS  0  TO  *4  OF  PSO*r> 


770  L0A0P2  AM  Pi-  I0F7H 

771 


RlSi'j  C5 

772 

SEL 

RB0 

vt  2  c  £ 

771 

MOV 

RL  *020H 

0120  Bh00 

774 

MOV 

R2..I0 

>•'120  BB0E 

775 

MOV 

R3, *14D 

77S 

01  £'C  14  7 

777  LAPOR 

CALL 

LADP2 

022E  tt.l 

770 

DJNZ 

R3> HERE 

tj'il  FS0P 

77s 

ORL 

Pl< I88H 

780 

•OIL  4’: 

781 

RETR 

782 

0222  is 

761  HERE 

INC 

R1 

'.’124  lH 

784 

INC 

R2 

0115  04il. 

785 

JMP 

LAPOR 

788 

.<  0.-4y 

787  LADP2 

ORL 

PM040H 

*’  OS  FA 

788 

MOV 

A.  R2 

‘.’110  so 

78S 

MOVX 

ARB,  A 

0"‘t'  <4£lR 

7S0 

ANL 

Pi,  *0BFH 

tfi'D  f  i 

781 

MOV 

A,  0R1 

011E  w 

782 

MOVX 

AR0,  A 

".IP 

7S3 

RETR 

.  *+»*»******»***♦*’ ******♦***♦+,<******»-*♦**»*'<<*♦*♦*«***»»<*»:*  +  *****«**»***'* 

DECODE  REGISTER  RE  TO  DETERMINE  PROPER  AMPLITUDE  FOR  H 
THRUSTER  ROCKET  SOUND  1  OF  12  POSSIBLE  AMPLITUDES  0ECAV1NG 
LOGARITHMICALLY' 


i'  Sti  r  ~ 

602  POPAMF 

t! 

PB0 

•  ■  1  *♦  i.  Ft 

■501 

MOV 

A.  R0 

"142  T.0F 

304 

(All 

nnL 

A-48FH 

Hi  44  7208 

305 

JB1 

ROPA 

0140  5252 

306 

162 

R0P6 

0148  lt4E 

887 

JB0 

POPC 

"'4A  c  1  Bl 

806 

MOV 

A  ,  I8B8H 

,  R6=2' 

LEVU.-1 

•  47  -48E 

888 

IMP 

1AMP0 

«.4t  _2>61 

618  POPC 

MOV 

A,  I8B1H 

=]. 

=4 

h/;(i  c.40t 

•311 

w 

CAMPO 

812 

A;  52  125E 

812  POPE 

TE'l 

R0PD 

■.'"'4  1.15ft 

014 

JB0 

POPE 

h.'-E  X..A4 

615 

MOV 

A.  #8A4H 

,  P6=4. 

LEVELS 

0  ;‘‘,8  t43E 

816 

IMP 

LPlMPO 

0.5A  22ft.‘ 

317  ROPE 

MOV 

A,  WA2H 

•  =5, 

=6 

►> ;  %  t48f 

818 

.IMP 

CAMPO 

*25t  14*4 

813  t,OPD 

JB0 

ROPF 

0100  21A1 

828 

MOV 

A, *8A1H 

=6, 

-7 

":02  048E 

821 

IMP 

CAMPO 

|M|  j  P\4  .{ 

622  ROPF 

MCW 

ft  I898H 

;  =7, 

=8 

it.H-ifHl  MACK'  ASSEMBLER*  V2.  0 


ii.  .=_  -i  i 

.1  Mi  ‘  "  > 

ii  *.t  . .  '  i 

•i.^E  ^2?4 
,f  it  A48E 

»t;r;  t:« 

yl  7  a  i-  lSf- 

037*  liTC 
0278  23?  I 
02  7A  64AE 
CGVl  2.'6F 
*:"'E  64-.E 

"  ■•■t?  :4C-L 

*V  '■£  i288 
it _t-4  ;"k4 
►r.-v.  E-4.3E 

titjbS  2282 
yt  78  a  644E 

.•'.  V  r.8i 


82;  in’ 

324 

825  FORM  JB2 
oi6  JB1 

327  JB0 

328  MOV 

328  JMP 

830  POP I  MOV 

821  JMP 

822  ROPH  JB0 

322  MOV 

824  JMP 

325  ROPJ  MOV 

338  JMP 

837 

828  ROF'G  JB1 

823  JB0 

840  MOV 

841  JMP 

842'  P'JPL.  MOV 

842  JMP 

;.44  PGPK  MOV 


SOURCE  STATEMENT 
IMP  CAMPO 


ROPG 
RCif'H 
POP  I 
A.I094H 
CAMPO 
A>  I092H 
CAMPO 
ROPJ 
A..  #€91H 
CAMPO 
A. I088H 
CAMPO 

POPP 

POPE 

A, I884H 

CAMPO 

A,  10820 

CAMPO 

H.*081H 


;  R8=8f  LEVEL=9 
=?,  =10 

*  =10.  =11 

,  =11*  =12 


R6=12.  LEVEL=i2 


=14  15.  =15 


•LoE  iC' 
A2 oF  47 
0278  2'- 
0:-i  i4- 


tf^t**************************************************************"1**** 

THIS  RCX.iT INE  DECODES  REGISTER  P8  TO  DETERMINE  IF  THE  MISSILE 
IS  IN  THE  LOW  RANGE  (LESS  THAN  332  METERS).  MID  RANGE  (232  TO 
888.  METERS'.  OP  HIGH  RANGE  (GREATER  THAN  666  METEPS) 

THE  AMPLITUDES  C*  3  SUCCESSIVE  EXPLOSIONS  ARE  SET  FOR  A  TARGET 


C5 

85?  • 

880 

861  HITAMP 

HIT 

SEL 

A  HISSED 

RB0 

JAPGET  PRCC'UCES  ONLV  THE  FIRST  TWO 

FE 

862 

MOV 

A.R6 

7  2flE 

862 

JB2 

HADU 

>)\% 

52A1 

884 

JB2 

HITU 

•  ■  r*c 

r  L* 

865 

866  MARV 

MOV 

A.R5 

*i  )  V* 

Ml 

867 

f€C 

rt 

m  *r*n 

'  ft  7 

868 

Jc. 

JOHNS 

,  R6=2.2,4.5  3RD  EXPLO 

•ti 

86? 

DEC 

A 

"  -[■ 

..605 

870 

JZ 

J0HN2 

,  2ND  EXPlO 

-'4(1 

371 

JMP 

JOHN! 

,  1ST  EXPLO 

H'fii 

"  w'- 

372 

872  HITU 

JBl 

HOAX 

•  44f 

874 

Cl  X. 

IMP 

MARV 

n  M1 

•V 

m  hoh/ 

MOV 

A.P5 

l'  , 

O'  1 

DEF 

H 

M-.-II  Ml-  ->-48/UFf-41  MACRO  ASSEMBLER.  V2  A  PAGE  1? 


;  m  Ob  / 

j£w 

SOURCE 

STATEMENT 

Mjtf?  ».  bU' 

678 

JZ 

T0HN4 

»  or 

879 

C€C 

n 

>':HH  1  tf.C  **• 

888 

n 

J0HN2 

861 

JMP 

JQHN1 

882 

“2mE  5268 

882  M6 

J62 

HOPE 

OSb'O  3264 

884 

JBi 

HADE 

0362  6405 

885 

JMP 

HOAX 

‘.'364  1266 

686  HADE 

JBB 

HOPE 

0366  6405 

JMP 

HOAX 

686 

O'Eh 

88S  HOPE 

MO'"' 

A,  R5 

6269  0 ' 

P.90 

DEC 

A 

0'6h  C6CD 

SSI 

J2 

J0HN4 

03BC  07 

892 

DEC 

A 

0:  P[ 1  1 6*.  9 

882 

JZ 

JOHNS 

036P  64L5 

884 

JMP 

J0HN2 

885 

03(1  -GAP 

8%  JOHN! 

MOV 

A.I0PH 

02C:  2C 

887 

MOW 

P4.A 

0”'  4  92 

888 

RETR 

O'j'y  230E 

888  J0HN2 

MOV 

A,*0EH 

03<i  7  2C 

tW 

MOVD 

P4,  A 

03CO  S3 

801 

RETR 

03 C?  2?0D 

802  JOHN." 

MOV 

A,#0DH 

uU'6  3i. 

882 

MOVD 

P4,  ft 

0303  S3 

804 

PETP 

02ri'  roc 

805  J0HN4 

MOV 

A,  #6CH 

3*3 

906 

MOVD 

P4..A 

fit '0  S3 

907 

RETP 

90S 

968 

910 

911 

912 

913 

914 

915 

END 

,,ft  SYMECIS 


"(P  iN 

0072 

HNIT 

0008 

BAT0 

0215 

BAT01 

01D9 

6AT2 

01PF 

BAT4 

01F7 

BAT5 

01EF 

BAT6 

01E6 

8JTJ 

Ol  Ac' 

BH2 

M9C 

BITS 

0181 

BIT4 

0186 

CAtAF 

0>6D 

CAPET 

027E 

CAMPO 

038E 

cm: 

Aflflfi 

W1V 

OK  ODE 

0001 

DELAY 

0064 

DEXAA 

00A7 

OEXO 

00A1 

00P8 

DUOEX 

0277 

DUDE XI  80EB 

DUDEXO  0100 

Hr  Ft 

02' 3 

HEXO 

.wnn 

wnc 

HITAMP  0392 

HITE 

0102 

Mi  4  6 

0268 

INF  IN 

0046 

IN1T 

0006 

JACK} 

0269 

IijHN4 

62  CD 

JP0 

815C 

JP1 

015A 

m 

8158 

'  r"  'H 

u29E 

LA0P1 

021A 

LADP2 

0327 

LAPOP 

032C 

t  uOP2 

O0P8 

MARV 

8298 

08L0 

00CE 

PASS 

0115 

PB4 

01  f  9 

PB5 

01C7 

PB6 

01C5 

PBV 

01DB 

t » V*  . 

0100 

RESPG 

0018 

POPA 

0368 

pop amp  0340 

►  -iff 

0364 

POPG 

0280 

ROPH 

0376 

PDF' I 

0372 

00F1 

ROPOP 

0268 

-APON 

0A'E 

SAvoe 

0O87 

R6=6,  ■  10  m  EXPLO  MID  RANGE 

2ND  EXPLO 
1ST  EXPLO 


P6-11-  ,15  3RD  EXPLO  LOW  RANGE 

2ND  EXPLO 
1ST  EXPLO 

SOUND  LEVEL  1  <L0WE5T> 


SOUND  LEVEL  2 


SOUND  LEVEL  2 


SOUND  LEVEL  4  (LOUDEST1* 


BAT1 

020F 

BATH 

01D7 

BAT2 

0207 

BAT21 

B1D5 

BAT7 

01DF 

BEA 

021E 

BEB 

0225 

6IT0 

MFC* 

BITS 

017F: 

BIT6 

016C 

BIT7 

0168 

BRAVE 

0271 

CHECK 

0084 

CHIK 

0291 

COKOP 

0275 

DftLAV 

00BF 

DLV 

00C1 

DRACO 

00F3 

DRAGON  0228 

DRANG 

0020 

FLIP 

001E 

GETTA 

■■vw 

vvr" 

HADE 

0264 

HAOCI 

02PE 

HITEl 

00EE 

HFEX 

029A 

HITU 

03A1 

HOAX 

82A5 

JIERT 

0286 

?0HN1 

02C1 

J0HN2 

03C5 

J0HN3 

02C9 

m 

8156 

JP4 

0154 

JP5 

0152 

.TP6 

@150 

LOADPl  8300 

L0ADP2 

0323 

LOOP AM  0238 

LOOP! 

0066 

F80 

01D1 

FBI 

01CF 

P62 

81CD 

PEG 

eice 

POUR 

811E 

POSS 

0112 

PLfP 

0117 

PUPPET  011A 

R0P6 

0252 

POPC 

034E 

ROPD 

P25S 

POPE 

035A 

ROPJ 

037C 

POPI 

038C 

ROPL 

0386 

WO 

0105 

SiNFIN  0076 

621A 

TAP 

8142 

TAPAP 

A162 

;  c  - 1  i  d' 5-48. 'i -PI -41  N0CRO  ASSEMBLER.  V£  8 
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THEE  HmU  ThRC  0137  TESTR4  014C  THERE  0315  TIMER  MU  'WMF  0217  THf  0108  TRIP  *1BE 
'R45  0128  UNFIN  0063 

HbSEi'itiLV  COMPLETE.  NO  ERRORS 


!  i  .  I  "-48  *1 IPI-41  MACRO  A5SE  *BLEF‘.  ';2  0 


°fiGE  1 


i  II  ’*!£  i 

SECi 

SOURCE  STATEMENT 

t 

2 

7 

IS  SEPTEMBER  1981 

4 

S 

6  • 

THIS 

IS  ft  PROGRftM  TO  TURN  THE  TURRET  ON  ft  7ftN>  MODEL 

7 

90  DEGREES,  HOLD  IT  THERE  FOR  i 

3  SECONDS,  AND  RET'JPN  IT 

8 

9 

10 

INITIHLIZHTION 

11 

0000 

12 

ORG 

0 

*000  O-iFlft 

r 

IMP 

INIT 

OOO: 

14 

ORG 

7 

0009  0419 

i". 

JNP 

TURN 

00O9 

16 

ORG 

Q 

OOOv  ■  *  r 

r  T  n  i  t 

MOV 

H  *OFPH 

OFjOR  - 

18 

OUTL 

PI,  ft 

OOOC 

1* 

HNL 

PI  I0F7H 

RESET  PSG 

OOOE  990* 

20 

0R1 

Rl,  #8 

0010  r. 

21 

ENTO 

CLP 

00’.  L  0‘.> 

22 

EN 

I 

0012  09 

22  TPIG 

IN 

ft,  PI 

eol;  9212 

24 

J84 

TRIG 

■TEST  P14  FOR  TRIGGER  PULSE 

00  15  i4EE- 

2S 

CALL 

GVRO 

0017  «4L2 

20 

IMF 

TRIG 

27 

23 

29  • 

RUN  TURRET  FORWHPD 

30 

i  HI  1  '■!  hHF[' 

31  TURN 

Oku 

PI,  #0F« 

,  1111/1101  =  PORT  1 

ooiB  BftCS 

32 

MOV 

R2, #200D 

0016  14.4 

CALL 

DELAY 

O01F  561F 

34  WHITE1 

JT1 

WHITE1 

0021  990 6 

25 

ORL 

PI,  *06 

26 

#*V.*  144*- 

COLL 

SOUND 

<h-  ■*.  r**« 

‘■4 

MOV 

R2,#10«> 

•»  "U 

4*i 

'ALL 

CELflV 

4 

4 

W»»  TifffT  R£V£P9f 

, 

HK 

('X 

■  1111/1011  =  PORT  1 

<c« 

v.  •*** 

•* 

♦ 

• 

.  r,3  3-40AJfi-4i  HhC**'  ASSEMBLER.  Y2  6  p«0£  2 


l,x  Ofc  >  5EO  SOURCE  STATEMENT 


w  4  BOOS 

5'  [CLAY 

MOV 

PI,  *8 

B6FF 

54  LOOP 1 

MOV 

P0. *OFFH 

BO  :■  £■■  IE 

55  L0GP2 

WN2 

RO, LOOP 2 

ijvi.fi  £928 

58 

DJMZ 

Pl-LQOPl 

B03C  Eri24 

57 

DJNZ 

R2, DELAY 

002t  82 

58 

PET 

59 

003F  BSCS 

80  OALfiV 

MOV 

RO.IOCSr 

iWi  E841 

81  DAY 

DJNZ 

PO,  DAY 

iVi4;.  ErtZF 

82 

din: 

R2-  I'ALAV 

004 S  S3 

RET 

64 

65 

66  ? 

THIS  IS 

i  THE  SOUND  MOLING  ROUTINE 

0040  8SF7 

67 

66;  SOUND 

ANL 

P140F7H 

0048  8908 

69 

OPL 

Pi.  IS 

0040  6031 

*  ^ 

71 

MOV 

P2,  #50D 

004C  1434 

72 

CALL 

DELAY 

0048  8830 

74 

MOV 

PO  #0300 

■to SO  3700 

-re 

i 

MOV 

A.  10 

0052  00 

’8 

MOV 

r?PO  A 

0053  18 

77 

INC 

PO 

0054  22  30 

f'v 

MOV 

A.  108-80 

0058-  00 

79 

MOV 

0P0.  H 

0*5'  18 

80 

in.: 

P0 

0058  2307 

81 

MOV 

A.  #0'H 

0050  00 

82 

MOV 

OPO  A 

005B  6F48 

§7 

64 

MOV 

R7-#048H 

OOV.  6830 

85 

MOV 

RO- I030H 

88 

oosf  8901 

67  UHlSTl 

OPL 

. ....  L  27 

80 

CLP 

A 

0O82  90 

89 

MOVX 

i960  h 

OOF' 3  99Ft 

90 

ANL 

Pi,  «0F£4 

008'  CO 

91 

MOV 

H.  OP0 

008O  90 

92 

mow>: 

OPO  A 

8087  6901 

44 

OPL 

Fi»l 

•9089  2301 

4C, 

MOV 

H*1 

008B  90 

98 

MOVX 

0P0  A 

0088  99FE 

47 

ANL 

P1MFEH 

006E  2181 

98 

MOV 

fi.tl 

0070  90 

99 

mov>: 

aP'O.w 

100 

0071  8901 

101 

OPL 

PL-  *1 

0073  2308 

102 

MOV 

A-  *8- 

0O75  90 

107 

MOVX 

0P8.fi 

0078  99FF 

104 

ANL 

F'.IOFEA 

0078  2’ OF 

105 

MOV 

A- 1170 

00~M  90 

108 

MOW, 

«Pe,fi 

107 

. 

DELAY  -  R2  >'  01  SEC 


DELAY  =  P2  X  .  001  SEC 


ALL  PSG  REGISTERS  GET  8 


PO 

P7 

pie 

LOOP'  COUNTER 


NESTE  TO  REGISTER  P0 


PI 


Rfe 


* 
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u,r  rig. i  5E0  MKt  SWEHENT 


lo8 

0*1 

F'l  41 

807L  2'0 7 

109 

MOV 

8.17 

O07F  90 

!>* 

MOV-' 

8R0.A 

puis#  9?F  t 

m 

rlNL 

PI.  40FE8 

t.082  IS 

112 

INC 

P0 

0083  Ft' 

u: 

HOV 

8.  890 

0084  SO 

114 

MOV  ' 

8P IT  8 

115 

0065  8901 

118 

OFL 

F'i-  41 

0087  230b 

i  r 

HOV 

ft  #10" 

80.99  so 

118 

MOVX 

»K0«  h 

«WbM  99FE 

119 

0NL 

PI. #0FE8 

0087  18 

12'0 

INC 

P0 

0O8C1  F0 

121 

MOV 

R.  0R>. 

008E  90 

122 

MOW 

8f'0.  R 

lc;7 

0ti8F  0007 

129 

HOV 

P2-  #~ 

oooj  147F 

125 

CALL 

[>RL8v 

0097  EF97 

127 

C'JNZ 

*7  1 7'NT 

809S  049C 

IMF' 

EXPLG 

00S7  6830 

129  COHT 

MOV 

P'0 .  #0708 

004 4  io 

130 

INC 

.SR0 

0090  845F 

1ST 

IMF' 

W8  1 9  i  L 

172 

O0->.  9901 

133  EXPLO 

OFL 

F'l.  #1 

OO 4£  27 

174 

CLP 

H 

0096  90 

175 

NOW 

0P0.R 

OOA*  9hF[ 

138 

Qkll 

nriL 

PI. IOFEH 

0002  2751' 

1  7 

MO'" 

R  #135*9 

00W  90 

178 

mow 

l*fO  8 

0005  8901 

140 

OPu 

F'l.  #1 

0007  2301 

141 

MOV 

A,  #1 

0009  90 

Ml 

MOVX 

0P0-H 

0000  99FE 

14' 

rtfu 

nm_ 

F'l  -  #OFEH 

000i7  2301' 

144 

MOV 

«  il50 

O00E  90 

145 

rnjvx 

SRO.  A 

146 

000F  8901 

147 

GPL 

F'l.  #1 

0061  2300 

148 

MOV 

ft.it 

0867  90 

149 

MOVX 

880.8 

0064  99FE 

150 

OH  u 

itmL 

Pi,  IOFEH 

O06-,  27  IF 

151 

MOV 

R.ilr*' 

0069  90 

152 

MOV*. 

8f'0.R 

15' 

0009  ;;  901 

154 

GPL 

Fl.il 

0066  2707 

I5r 

MOV 

8.  #7 

0061'  90 

156 

MOVX 

0P08 

O06E  99FE 

lc' 

0NL 

Pl.iOFEH 

*0(0  i<.l5 

ir.ft 

MOV 

R  #0868 

00*:  2  90 

;  "M 

MOVX 

880.8 

160 

O0i  "  y  ‘-01 

Xl 

OPL 

P1.il 

Ob'  '  2708 

► 

MO'.. 

8.  it 

P10 

7  MSEC  PEP  STEF 


WRITE  TO  REGISTER  R0 

?1 

RE 


r:-n  mcs-48. 

..IF' I -41  HftCPO 

0SSEMBLER, 

V2.  0 

LOC  061 

SEO 

SOURCE 

STATEMENT 

ftflf?  4ft 

183 

HO-X 

Ilf  0.0 

.WS  44f£ 

1E4 

hNl 

Pi. #0FEH 

iW.  h  2’\U3 

105 

MOV 

0* #0200 

r 

100 

MCWX 

0R0.0 

fiftU1  9901 

166 

ORI. 

PI.  #1 

06CF  238B 

109 

MOV 

ft..  #130 

uPL'l  90 

170 

MOVX 

0P0.Fl 

00C-2  **FE 

171 

ftNL 

F'l..  #0fEH 

0004  2:rF 

172 

MOV 

ft..  #0FFH 

P0Of  90 

173 

M0Vv 

0P0.FI 

174 

0f<['7  8901 

175 

0PL 

PL  #1 

ftftf.4  J^fti 

1?6 

MOV 

ft,.  #14Q 

00C8f  90 

177 

HOVX 

0P0  .  ft 

00DC  99FE 

178 

ftNL 

PI.  #0Ft« 

@0OE  233F 

179 

MOV 

0.  #077y 

00E0  90 

lffi 

MOVX 

n 

181 

00E1  4001 

182 

OPL 

pi.  #i 

00£:  2301' 

18: 

MOV 

ft.  #156 

P0E  J  9« 

184 

MOVX 

0P00 

00£t.  99FE 

185 

ftNL 

P1#0PEH 

00E6  27 

i$f" 

CLP 

ft 

00E9  90 

187 

MOVX 

0M,  ft 

188 

00EH  03 

189 

PET 

19* 

1*1 


r .  rfiYtfi 

WLD  DiWti 

192  6VP0 

MOV 

R2  #100 

00E1-  1434 

193 

CALL 

OEL0V 

1*4 

00EF  8901 

1*5 

ORL 

rl  #1 

80F1  2302 

MO1" 

0.#: 

00F2  90 

1.47 

MOVX 

m  h 

00P4  44FE 

1*8 

0NL 

*1  #0FEH 

00F0  23FP 

199 

MOV 

H-  #0FFH 

00Ffi  90 

200 

MOVX 

ORA.  ft 

201 

00F9  3901 

202 

ijpi. 

*1  #1 

00P6  2303 

203 

MOV 

ft.  #3 

00FO  40 

204 

MOVX 

ape.  ft 

00FE  99fE 

205 

ftNL 

PI  ■  #0f EM 

8100  2303 

208 

MOV 

0.  #3 

0102  90 

207 

MOVX 

0P0.FI 

208 

0103  8901 

20* 

OPL 

PI.  *1 

0185  2304 

210 

MOV 

0.  #4 

0107  90 

211 

MOVX 

ap.0.ft 

8108  99FE 

212 

ftNL 

P1#0FEH 

0100  23 FF 

213 

MOV 

p. #0FFH 

010C  90 

214 

Mt>'X 

0P0.0 

215 

218 

217 


PfiGE  4 


RIP 


R13 


R14 


R15 


R2 


.  B  =  4XFPE6  R3 


0100  8901 
818F  2305 


OPL  PI.  Ill 

MOV  ft.  #5 
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LOl  06J 


SOURCE  STftTEMENT 


0111  90 
011c  9'9FE 
0114  230f 
011b  ?0 

011?  8901 
0119  2306 
0116  90 
011C  99FE 
01 IE  230F 
0120  90 

0121  8901 
0123  2307 
0125  90 
0126  99FE 
0128  23C9 
0120  90 

0126  6901 
0120  2309 
012F  90 
0130  99FE 
0132  230F 
0134  90 

0135  8901 
0137  230ft 
0139  90 
013fl  99FE 
013C  230f 
013E 

0LF  Bft32 
0141  1434 

0143  99F7 
0145  8908 

014?  81 


218 

MO'vi 

0P0.fi 

219 

ftNL 

PI,  #0FEH 

220 

NOV 

ft,#0FH 

221 

MOVX 

0P0,  ft 

LLL 

222 

OFL 

Pl-#1 

224 

MOV 

ft,  *6 

225 

MOW 

0R0,  ft 

226 

RNL 

PI,  #6FEH 

227 

NOV 

ft,  #0FH 

226 

HOVX 

0R0,  ft 

229 

230 

ORL 

PI  #1 

231 

MOV 

ft.  #7 

232 

MOW 

0P0.ft 

233 

hNl 

PI. #0FEH 

234 

MOV 

ft. *3110 

235 

HOVX 

0P0.M 

236 

237 

opl 

PI,  11 

238 

MOV 

ft,  #110 

239 

HOVX 

0P0  ,  ft 

240 

ftNL 

PI,  *0FEH 

241 

MOV 

ft. #0FH 

242 

MOVX 

0P0-6 

243 

244 

OPL 

PI  »1 

245 

MOV 

ft  #120 

246 

MOVX 

0P0H 

24' 

ftNL 

P1#.iFEm 

246 

Mt"'-' 

ft. #0FH 

249 

Ml*  VX 

0P0.  ft 

250 

251 

MOV 

P2.  #c*v 

25c 

CftLL 

C€Lh- 

253 

254 

ftNl„ 

P1#0F7H 

255 

'OPL 

PL  #8 

256 

25? 

PET 

258 

259 

260 

261 

262 

263 

EH' 

C  =  1XFPE0 


USER  SVH60LS 
COMT  0097 
L00P2  0036 


OfiLflV  003F 
SOUND  0046 


EXPLO  009C 
HHISTL  005F 


GYRO  00E6 
WHITE!  001F 


INiT  0809 
WHTTE2  002F 


LOGPl  0036 


ftSSEMBLY  COMPLETE,  NO  EPPOPS 


